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RUN APENDICE 
Type mismatch 
Ready 


RUM “APENDICE" 
Syntax error 
Read u 


KUN “APENDICE" 


AFENDICE. not found 
Ready 


LE 


Dm 


a 


COTTORTAL 


mis a i 


Biors je prends quinee jours de vacances, gt Vous ne trouvez même pas 

de programmer un ciône de MULTIPLAN ou un super dBAGE IV au Lieu de re 

ruur de La fortune (sur Té-HèF-Hun)?9 Et moi, persuadé Gue je 
e 


gerformences ge TURS9-Forth, Convaincu d'avoir geuvré pour es 
génératiuns de programmeurs, je ne vois rien venir de L35 grandes geuvres. 
Bllez-vous vous Laisser Césorcer par Le Futur Numérique Pruche Cinstitot 
informel dont je m'auto-proclame co-Gérant avec moi-même, destiné à prendre le 
céntre-pied du PAF)? Vous, ces maitres du TOKEN RING, dans Gueis méandres 
Besiciennes vous dispersez-vous? 
SGOMFAIRE 
FORTH: PI jusqu'à 22000 décimates £ 
cciteur de commandes DOS 3 
Jtilitaire de menus déroulants à 
Projet F32, spécifications préliminaires ‘4 
TELEMGTIQUE 
Contenu du FORUM SAMxJEOI ë 
VERGION GRIGINALE: 
Compiiing Proiog to FORTH, Listinc EL 


Dragon, Fraktate für VolrksForth 


Toute reproducti ion, traduction partieile du content de CE magazine 
SOUS toutes Le t “Vivement encouragée, à L'exception cr toute 
reproduction à des fins commerciaies. Dans Le cas de reproduction par 
photocopie, il esi demandé de ne pas masquer les références inscrites en bas ce 
page, et dans Les autres cas de citer <'ASSOCIATION JEDI Cassociatian Lui 190"). 


on, ataptat 
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Nos cocroonnées: 
AGSOCIATION JEDI 57, rue de La Lancette 75072 PARIS 
tel président: (1) 493.40.S6.53 
tel secrétaire: (1) 49.85.63.67 CSRMYJECZ, bai SECRETAIRE) 
térétel: 3675 SRM*xJECI 
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Pi 
JUSQU'R 22000 QECIMALES 


par J.L. 9IRET 


Systèmes: TURBO-Forth 83- Standard. Adaptable F83, 
optimisation assembleur pour PC et compatibles 


téléchargement par 3615 SAM*JED1, 
disquette dans Le module 7 accompagnant 


Disponibilité: 
prochainement en 
TURBO-Forth. 


22000 décimales dy nombre PI. 
tapant CALCULE; AFFPI affiche Les 


Sr a, ee ere. 
Ce programme calcule Les 
Lancer Le programme en 
1000 premières décimales. 
… 68 > = 

This program catculates the 22000 decimal ones of number pi. 
Ja Launch the program white typing CALCULATES; AFFPI posts 
the first 1000 the decimal ones. 

Queen menée eee en 

Dieses Programm berechnet 22000 dezimal der Zahl PI. Das 
Programm in CALCULE; AFFPI tippend einzufüuhren schtägt 1000 
erste dezimal an. 
—— NL 
Dit prografma 
programma door CALCULE te typen te starten; AFFPI plakt 1000 
eerste dezimal aan, 


mn GP ner memes 


Este programa calcula el decimal 22000 unos del nu'mero pi. 
Para Lanzar et programa mientras que el mecanografiar 
CALCULA; AFFPI fija Los primerus 1000 et decimal unos. 


LISTING: PI.FTH 


EMPIY ONLY FORTH DÉFINITIONS DECIMAL 

\ Par PI/4 = 16 ATN(1/5) : 4 ATN(1/239) 

A Et AIN 1/5 = 1/5 - 1/3.5.9 + 1/5x5.5.5.5 

\ 117:848.8,8:8,8 4 

\ Quelques chiffres 1 min pour 1000 décimales si LG*505 
\ 1 h 30 min pour 10000 décimales 51 LG*5008 
\ Cette méthode ne permet que d'atler jusqu'à 22000 
\ décimales car je ne travaille que sur un *@64 h: 
\ Les segments suivants du forth. 

\ Au fait, il faut signaler une erreur dans Le fichier 
\ FLOAT.FTH où Les calculs étaient passés au pascal: 

\ Eh bien Le nombre PI à été amputé d'un chiffre: 

\ c'est 3,14159265358973 3238462439; il manquait un 
\ S entre Le 3 et Le 8 


505 CONSTANT LG HEX 
0 OÙUP CONSTANT INV5 LG + OUF CONSTANT INV239 
LG + DUP CONSTANT COM2 
LG + OUP CONSTANT AIN5 LG + DUP CONSTANT ATN239 
LG + CONSTANT RESULT DECIMAL 
: VARIABLES 0 00 VARIABLE LOOP ; 11 
VARIABLES ESSD ADR1 ADR2 ADR3 NB SGGN OCT COUEF RET CPT SEG2 
: VIDE SEG2 @ SWAP LG O0 LFILL ; 
1QR 0 OCT @ MU/MOD DROP ; 


‘4 Re/ #D RET @ 0 D+ OCT @ MU/MOD DROP ; Û 


\ Adr1 + Adr2 --) Adr3 
\ : ADD 0 RET ! O LG 1 DO ADR1 @ I + SEG2 Q@ SWRP LC@ 
\ ADR2 @ 1 + GEG2 @ SWAF LC@ RET @ + » 
\ IQR RET ! HOR3 @ I : SEG2 @ SWAP LCI -1 +LOGP ; 
ALSO 
\ LABEL MODUL 0 # DH MOV 100 # AL CMP UD 
\ IF 100 # AL SUB 1 # UH MOV THEN RET C; 
LABEL (ADD) 
GI PUSH OI PUSH 0S PUSH LG # AX MOV AX CX MOV CX INC 
ADR #) BX MOV AX 8X ADD BX SI MOV 
AOR3 #) BX MOV AX BX ADO BX DI MOV 
ROR? #) BX MOV AX BX AOD 
SEG2 #) AX MOV AX DS MOV AX ES MOV G # OH MOV 
STO 
HERE BYIE AL LO0S 0 £BX]) DL MOV OL AL ADD OH AE ADD 
0 # DH MOV 100 #4 AL CMP U)d= 
1F 100 # AL SUB 1 # DH MOV THEN 
BYTE AL ST0S 8X DEC LOOP CLD 
Ax POP AX US MOV AX ES MOV OI POP SI POF RET C; 
COUE ADD (ADD) #) CALL NEXT C; 
\ Adr1 - Adr2 --) Adr3 
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\ : SUB O0 RET ! O0 EG 1- DO ADR1 @ I + SEG2 @ SWAP 

\ LCG ADR? @ I + SEG2 @ SWAP LCQ RET @ + 

\ - QUP Ut IF OCT @ + 1 RET ! ELSE O0 RET ! THEN 

\ HOR3 @ I + SEG2 @ SWAP LCI -71 +LOOF ; 

LHBEL (SUB) 

1 PUSH DI PUSH US PUSH LB # AX MOV HX UX MOV CX INC 
ADR1 #4) UX MOV FAX EX ADD EUX SI MOV 
ADR3 #) BX MOV AX EX ADD BX OI MOV 
ADR2 #) BXx MOV AX BX ADD 
GEG2 #4) AX MOV AX OS MOV AX ES MOV 0 # DH MOV 
STD . 
HERE BYTE AL EODS 0 CBX] OL MOV DH OL ADD OL AL SUB 

0 # OH MOV 0 # AL CMP « 
1F 100 # AL AOD 1 # DH MOV THEN 
BYTE AL STOS EX DEC LOOP CLD 
AX POP AX DS MOV AX ES MOV OI FOF SI POP RET C; 

COUE SUB (SUB) #) CALL NEXT C; 

\ Adr1i x Coef --» Adrez 

: MULT 0 RET ! O0 LG 1- 

00 ADR1 @ I + SEG2 @ SWAP LC@ COFF @ Ra/ RET ! 
ADR? @ I + SEG2 @ SWAP LCI -1 +LOO0P ; 

\ Adr1 : Caef --) Adr2 

\ : DIV O RET ! LG O0 ?00 RET @ OCT @ *x0 ADR1 @ I + 

\ SEG2 @ SWAP LCG 

\ 0 O+ COEF @ MU/MOD DROP ADR2 @ TI + SEG2 G@ 

\ 

L 


SWAP LCI RET ! LOOP :; 
ABEL (DIV) SI PUSH DI PUSH DS PUSH LG # CX MOV 
AOR1 #) SI MOV ADR2 #) NI MOV 
COEF #) BX MOV SEG2 #} AX MOV 
CLD CXx DEC 
HERE BYTE AL LODS 0 # AL CMP 07 IF ROT BYTE AL STOS 
LOOP 


AX D5 MOV AX CS MOV 


GI INC THEN SI UEC CX INC O # AX MOV 
HERE BX PUSH 100 # BX MOV BX MUL AX GX MOV AYTE AL LODS 
0 # AN MOV BX AX ROD 
0 # OX ADC BX POP BX DIV BYTE AL STOS 
ox AX MOV  LOUF 
ax POP AX OS MOV AX ES MOV DI POP SI POP RET Ci 
CODE DIV (DIV) #) CALL NEXT C; 
\ + DIVS INVS DUP AURT ! ADR2 ! S COEF ! DIV ; 
LABEL COIVS) INVS # AX MOV ADR # BK MOV AX 0 [BX] MOV 
ROR2 4 BX MOV AX O0 [EX] MOV 
5 4 AX MOV COEF # EX MOV AX 0 [BX] MOV 
(DIV) #) CALL RET C; 
CODE DIVS (DIVS) 4) CALL NEXT C; 
\ : PIV239 INVR38 OUP AUR1T ! RORZ ! 239 COEF |! DIV ; 
LABEL (DIV239) INV239 # AX MOV ADRI # BX MOV AX 0 LBX] MOV 
ADR2 # BX MOV AX Ü CBX] MOV 
239 # AxX MOV COEF # EX MOV AX D CBXJ MOV 
(DIV) #) CALL RET C; 
CODE OIV239 (DIV239) #) CALL NEXT C; 
INIT HEIGHT ©» ALLOC DROP DSEGMENT HEIGHT + GEG2 ! 
100 OCT ! INVS VIDE 1 INVS SEG2 @ SWAP LC!  UIV5 
SEG2 @ INVS SEG2 @ ATNS LG LEMOVE 
INV239 VIDE 1 INV238 GEG2 @ SWAP LC! OIV239 
GEG2 @ INV239 SEG2 @ RIN239 LG LEMOVE 
1 SGN ! 1 NB ! :; 
\ : CHS DIVS DIVS COM2 ADR2 ! ( COM? VIDE ) NB @ COEF ! DIV 
\ COM2 AUR2 ! ATNS DUP ADR1 ! ADR3 ! SGEN @ 1 = 
\ IF ADD ELSE SUB THEN ; 
LABEL CH5 (DIVS) 4) CALL (DIVS) 4) CALL 
COM2 # AIX MOV ADR2 # BX MOV AX 0 LBX) MOV 
NE #) AX MOV COEF # BX MOV fx 0 [EX] MOV 
(DIV) #) CALL 
COMZ # AX MOV ADR2 # EX MOV AX Ü LBXI MOV 
AINS #4 AX MOV ADR1 # EX MOV AX 0 LBX] MOV 
AOR3 # BX MOV AX 0 LBX) MOV 
SGN #) AL MUV 1 # AL CMP 0= 
1F CRDD) #) CALL ELSE (SUB) #) CALL THEN 
RET C; 
: CH239 
DIV239 


DIV239 COM? ADR2 ! ( COM2 VIDE ) NB @ COEF ! DIV 
COM? AUR2 ! AIN239 OUP ADRT ! ADRI ! SGEN EG 1 
. IF AOD ELSE SUB THEN ; 

ABEL CH238 (DIV239) #4) CALL (DIV239) #) CALL 
COM2 # AX MOV ADR2 # BX MOV AX 0 FBX] MOV 
NB #4) AX MOV COEF # BX MOV AX 0 CBX] MOV 
(DIV) #) CALL 
COM2 # AX MOV ADR2 #. EX MOV AX 0 [BX] MOV 
ATN239 # AX MOV ADR1 # BX MOV AX 0 EBX] MOV 
ADR3 # BX MOV AX 0 [CBX1 MOV 
SGN #) AL MOV 1 # AL CMP 0= 
IF (ADN) #4) CALL ELSE (SUR) #) CALL THEN 
RET C: 

\ : SUITE 2 NE +1 -1 GGN @ x SGN ! CHS CH239 ; 
CODE SUITE CLI NB # BX MOV 2 # 0 (BX] ADD 


D um 


SGN # AX MOV O0 [BXI AX MOV 1 # DX MOV 
1 # AX CMP 0= IF -1 # DX MOV 
THEN DX O0 EUX) MOV CHS #) CALL 
CH239 #) CALL STI NEXT C; 
: CALPI ATNS ADRT ! RESULT ADR2 ! 16 COEF ! MULT 
AIN239 ADR1T ! COM2  AOR2 ! 4 COEF ! MULT 
RESULT OUP ADR1 ! AOR3 ! COM2 ADR2 ! SUB ; 


.: AFFOCT 48 + EMIT 1 CPT +! CPT @ 5 MOD 0= IF 2 SPACES 
THEN CPT @ 50 = IF CR CPT OFF THEN ; 
AFFICHE 
DUP 5EG2 @ SWAP LC@ 10 MOD 48 + EMIT ." ," CR CPT OFF 


LG 1 00 OUP I + GEG2 @ SWAP LC@ 10 /MOD RFFOCT 
AFFOCT LOOP OROP CR ; 
: AFFPI CALPI RESULT AFFICHE ; 
: AFFS AINS AFFICHE ; 
: AFF239 ATN239 AFFICHE ; 
CHG INVS OU BEGIN 2OUP + SEG2 @ SWAP LCG 0: WHILE 1+ 
REPERT LG MIN NIP 2% ; 
: CALCUL DARK INIT BEGIN SUITE 0 0 AT NB G . 
KEY? IF KEY CASE 27 OF TRUE ENDOF 
65 OF AFFFI FALSE ENDOF 
68 OF CHQ CR FALSE ENOOF 
FALSE ENOCASE ELSE FALSE THEN UNTIL ; 
\ Esc arrête Les calculs 
\ Aaffiche Les décimales 
{€ tautes et ça prend 2 min pour 10000 ) 
\ D'affiche Le nombre de décimales déjà calculées 


FORT nn #2 —- . 


EDITEUR DE COMMANDES D0S 


par J.L. SIRET 


Système: TURBO-Farth. 

Diffusion: téléchargement 3615 SAM*JEOI et prochainement 
module M7. 

LISTING: DOSEDIT.FTH 


CPRLILIEELLLEEELL I IERLLELRELERELEEX) 
x Editeur de commandes forth * 
* et de chaines de caractères * 
* compatible avec Les touches * 
* de fonction. x 
HUMAINE ENNENNUNOUUURUUNROUOUNNOUNNEON 


par Jean-Luc S{IRET 


OBJECTIF: C'est de pouvoir modifier une Ligne de Saisie 
que ce soit une commande forth ou une chaine de Caractères 
avec Les touches flèchées, Les touches d'insertion et de 
suppression. De plus, pouvoir rappeler d'anciennes 
commandes forth à Là DOSEDIT. 
PRINCIPE: Tout ce qui passe par EXPECT doit être remanié. 
CHAR Dans Le standard, Lors d'une frappe de touches, 
Le curseur était toujours 8n dernière position et 
La frappe d'un ceractère narmal ajautait un 
caractère en dernière pusition. Maintenant le 
caractère tapé 5e met à La place de l'ancien si Le 
curseur 5e trouve au milieu de La zune de commande 
et ne rajuute un caractère que S'il 5e trouve à 
ta fin. 


CR-IN Toute fin de Saisie se termine par CR. Pour 
conserver une trace de commandes, 1l faut donc 
après garder Pn mémoire ces Commandes dans une 
zone que j'app#ile DOSCNIT 

DEL-IN doit pouvoir supprimer n'importe quel caractère au 


milieu de Là zone de saisie 
BACK-UP doit pouvoir effacer toute La Ligne de La 
position du curseur. 


ETRPE 1 Tout d'abord j1L faut DEFERré dans Le fichier 
KERNEL.TXT Les mots: 
CR-IN , DEL-IN et BACK-UP Les remplacer par (CR:IN) 
(DEL-IN) et CBACK-UF) 
Ne pas oublier de mettre plus Loin dans La partie 
renseignements des mots vectorisés: 
" (CR-IND 1S CR-IN de même pour Les deux autres. 
Ra jauter VARIABLE CURS qui va conserver La position 
courante du curseur avant Le mot EXPECT et dans celui-ci 
mettre son initialisation par CURS OFF 
DUP SPAN ! SWAP O0  CURG OFF ..... 


ETAPE 2 Modification du second fichier NOYAU.TXT 
Rajouter La possibilité d'éxécuter une action par Les 


Due 2e ee ee cb LE GE rat mn Re Ed qe LE tn et ts ere en don Ch ae ul de carte en d'en die M ta le ot VE one ja le ee 


de contrôle actuelles mais Leur code n'est pas un 
caractère inférieur à 32 et c'est d'ailleurs une sequence 


comme Les touches de 
Ce ne sont pas des touches de function car leur 


\ 

\ 

\ de deux codes 0 puis La touche 

\ fonction. 

\ action doit étre immédiate et non en mettant Leur nom 

\ dans La zone de saisie. D'où création d'une nouvelle 

\ table d'action avant Le mat FUNCTION 

\ CREATE TABFL ] NOOP NOOP NOOP NOOP NOOP NOOP NOOP 

\ NOOP NOOP NOOP NOOP NOOP NOOP £ 

\ Puis dans Le mot FUNCTION juste après Le mot KEY 

\ écrire La Ligne 

\ QUP 71 83 BETWEEN IF 77 - 2x TABFL + PERFORM ELSE 
\ et à La fin de ce mot THEN ( 2 en tout} juste avant Le ; 
\ 

\ ETAPE 3 Recompiter Le tout avec Le METAcompilateur 

\ 

\ 


ETAPE 4 Puis compiter La suite: 
CCR-IN) IS CR-IN ‘ (CHAR) IS CHAR \ par précaution Lors 
" (DEL-IN) IS DEL-IN ‘ CBACK-UP}) IS BACK-UP \ d'une 
\ deuxième compilation 
EMPTY ONLY FORTH DÉFINITIONS DECIMAL 
100 CONSTANT CAPA 
\ capacité du tampon de commandes 500 est plus confortable 


\ mais j'ai toujours été radin en ptace 
VARIABLE PTCR VARIABLE PTFL 
\ pointeurs dans Le tampon de commandes 
VARIABLE CAREMP VARIABLE ADTIB BL CAREMP ! 
\ CAREMP est une variable qui La plupart du temps contient 
\ un espace mais peut être remplacé par tout autre Lorsque 
\ L'on veut matérialiser La zone d'édition. Voir Le mot ESS 
\ à La fin par exemple 
CREATE OOSEOIT CAPA ALLOT DOSEDIT CAPA ERASE 
: ASSFL 
! SWAP OUP 71 83 BETWEEN 
IF 71 - 2x TABFL + } ELSE 20ROP THEN ; 
\ Permet de brancher Les actions des touches d'édition 
TIBL 
BEGIN OUP CAPA FTCR @ 1+ - € NOT WHILE 
QG BEGIN 1+ PICR @ OVER - DOSEDIT + C@ OVER 1- = UNTIL 
DUP +1 # PTCR +! DOSEDIT PICR @ + SWAP ERASE REPEAT ; 
CCCR-IN)) QVER TIB = 
IF AL SKIP OUP 0€) 
[IF TIBL OOSEDIT ?2QUP + 1+ PICR @ CMOVE) 
2OUP OOSEDIT 1+ SWAF CMOVE QUP DOSEDIT C! 
DUP + PTCR +! 
THEN 
THEN ÇCCR-IN) PTFE OFF CURS OFF ; 
T CCCR-IND) 165 CR-IN 
Seules Les comnandes forth sont conservées 
test OVER TIB = 
Dans Le tampon DOSEDIT Les commandes sont rajoutées au 
début et Les anciennes décalées. Il y a calcul de la 
place nécessaire et suppression des plus anciennes 
commandes pour pauvoir entrer chaque nouvelle commande. 
Une amélioration possible serait d'éviter Les redondances 
de commande et de ne garder que tes différentes: (d'abord 
comparaison etc...) 
fi La fin CR-IN reinitialise La variable CURS 
CCBACK-UP)) 
CURS @ BACKSPACES OUP CAREMP @ REPLICATE 
BACKSPACES O CURS OFF ; 
CCBACK-UP)) IS BACKUP 
Un remarquera La Séquence CAREMP @ REPLICATE pour 
cunserver Lors d'un effaçage Les caractères de La zane 
d'édition. 
CURS®? CURS @ MIN CURS ! ; 
Voilà un müt sample pout un problème qui m'àa cassé Les 
pieds Longtemps. Normalement chaque saisie se termine par 
un CR, et OUT doit être réinitialisé avant La prochaine 
saisie comme La variabte CURS. 


d'où Le 


NU AE de Or Ne meer 


Et non, cèr La fin peut se faire aussi quand La zone est 
saturée; quand on arrive au maximum que cette zone peut 
contenir. A ce mompnt, Les initialisations ne 5e 


faisaient plus au méme endroit et L'on pouvait arriver 

à des aberrations comme Le curseur en positinn 5 avec 
seulement ? caractères d'entrés. Chaque mot cummenre donc 
par vérifier La cuncurdance du curseur gréce à CURS? 
METIB 

COUNT OUP >R 2OUP TYPE ADTIB @ SWAP 

CMOVYE RG + PTFL +! R3 ; 

HTISAS OUP CURS? OVER AUTIH ! BACK-UF DROP ; 

FLHT HIBAS PTFL @ OOSEUIT + OUP C@ 0 «> 

IF METIR ELSE DROP O THEN DUP CURS ! ; 

CPTAR Ù 

BEGIN 1+ PTFL @ OVER - DG 

UNTIL -19 6 PTFL #1 ; 
FLBAS HIBRS PTFL @G 0) 


SEDIT + C@ OVER 1- = 
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[A 


_ 


IF CPTAR PTFL @ DOSEDIT + METIB 
ELSE 0 THEN 
ELSE O THEN OUP CURS ! ; 
Ceci pourrait suffire pour un DOSEDIT minimum 
C(CHAR)) 
OVER CURS? 3OUP EMIT DROP CURS @ + C! CURS 1+! 
CURS @ MAX ; 
CCCHAR)) 1S CHAR 
CHAR écrit à ta position du curseur et non forcément à La 
fin. Si c'est La fin ta chaine vient donc d'augmenter 
comme L'ancien CHAR 


: FLGH DUP CURS? CURS @ 0<> IF 8S EMIT CURS 1-! THEN ; 
: FLORT 


DUP CURS? CURS @ OVER « 
IF OVER CURS @ + C@ CURS 1+1 EMIT THEN ; 
FLHOME OUP CURS? CURS @ BACKSPACES CURS OFF ; 
FLEND DUP CURS? CURS @ BACKSPACES 2DUP TYPE OUP CURS ! ; 
Déplacement dans La zone de saisie 
FLINS 
DUP CURS? CURS @ OVER « 
IF OUP CURS @ - >R OVER CURS @ + DUP DUP 1+ 
R) CMOVE>) BL SWAP C! 1+ CURS @ BACKSPACES 2OUP TYPE 
OUP CURS @ - BACKSPACES 
THEN ; 


: FLOEL. OUP CURS? CURS @ OVER 


nn 


em 


1F OUP CURS @ - >R OVER CURS @ + 1+ OUP 1- 
R> CMOVE 2OUP + 1- CAREMP @ SWAP C! CURS @ 
BACKSPACES 2DUP TYPE 
OUP CURS @ - BACKSPACES 1- 

THEN ; 

FLINS insère un espace à La position du curseur mais 

FLDEL. supprime Le caractère sous Le curseur et diminue 

La chaîne de 1. Le caractère de remplacement est mis à 

La fin. Sur certains compatibles DEL. est abtenu 

avec La touche ANNUEL 

((OEL-IN)) 

DUP CURS? CURS @ 04) 

IF 85 EMIT CAREMP @ EMIT US EMIT BL OVER CURS @ + 1- C! 
OUP CURS @ = 
IF 1- THEN 
CURS 1-! 

ELSE BELL EMIT THEN ; 

C(DEL-IN)) IS DEL-IN 

Remplace L'ancien DEL-IN et supprime Le caractère qui 

précède Le curseur et Le remplace par un blanc. Si Le 

curseur se trouve en dernière position, La chaine 

est diminuée de 1 


80 ASSFL FLBAS 


\ 
\ 


On remplit Le tableau TABFL par Les actions 
correspondantes 


72 ASSFL FLHT 


\ 


80 est Le code de La touche flèche haute etc 


75 ASSFL FLGH 


\ 


77 ASSFL FLORT 


\ 


IL faut noter que ce tableau n'est pas entiérement rempli 
\ Les codes 74 76 et 7B ne servent à rien, 
enfin chez moi 


82 ASSFL FLINS 


\ 


Les codes 73 et 81 de Pgup et Pgdn ne sont pas renseignés 


83 ASSFL FLDEL. \ mais peuvent l'être. 
71 ASSFL FLHOME 
79 ASSFL FLENO 


\ 


Exemple pour La saisie d'une zone de caractère 


20 STRING ESS$ 
1 È5S ‘ 


\ 
\ 
\ 


DARK 15 
CAREMP ! 
20 S AT ESS$ INPUTS BL CAREMP ! CR ESSS$ TYPE ; 


5 AT. esse enr eee " ASCII - 


Pour ceux qui y voient un intérèt, tout ceci peut être 
mis dans Le fichier NOYAU.TXT et compilé avec Le noyau et 
protégé par L'habituel MARK EMPTY HERE FENCE ! 


UTILITAIRE DE MENUS DEROULANTS 


par J.L. SIRET 


Système: TURBO-Forth 

Diffusion: téléchargement 3615 SAM*JEDI et prochainement 
module M7. 

LISTING: UTILMENU.FTH 
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\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
E 


* Utilitaire: menus déroulants (encore un !) * 
* par Jean-Luc SIRET L] 
PETITS LIST TT II TIISLIIILLI SLI LLL LEE LLLELLLELE,LE,) 


Gi L'ensemble de ce texte peut paraitre décousu, cela est 
normal puisque j'ai essayé de tirer quelques trucs d'un 
programme écrit en forth par moi qui faisait au total aux 
alentours de 30 Ko. 

L ‘'interèt de ces menus déroulants est Leur paramétrage 
où La Longueur, Leur nombre, Leur position et Leur sens 
ne se définissent qu'à L'utilisation. 0e plus, chaque 
Ligne du menu peut être documentée par un message 
apparaissant sur La première Ligne en haut de L'écran. 
L'affichage 5e fait à L'écran grace au mot $»SCREEN 

paru dans un JEDI et modifié pour qu'il puisse écrire 

des chaînes extra-segment. 


MPTY ONLY FORTH ALSO DEFINITIONS DEC {MAL 


: VARIABLES 0 ?D0 VARIABLE LOOP ; 
VARIABLE VIDEO_RAM VARIABLE ATTR ALSO 


CODE $>SCREEN 
DI POP DOI SH Cx POP AX POP  BX POP 
SI PUSH AX S1 MOV 05 PUSH 
VIDEO_RAM #) AX MOV AX ES MOV 
ATIR #) AX MOV BX D5 MOV 
CLD ( 00 } HERE BYTE MOVS AL ST0S LOOP 
Ds POP S1 POP OS AX MOV  AX ES MOV NEXT C; 
HEX 
INITVIO 
B800 800 40 10 LC@ 30 AND 30 = # + VIUEO RAM ! ; 
DECIMAL 
50 STRING AS 
: AFFLG2 


0 SWAP AT EMIT 65 196 REPLICATE EMIT ; 
\ car2 car? Ligne 


: AFFCL2 


8 
8 


OVER OVER 71+ 

200 2 PICK I AT 179 EMIT LOOP 2 PICK SWAP AT 
ROT EMIT AT EMIT ; \ car? cari col tgn2 Lgn1 
0 STRING BLANCS 

LANC$ DROP 80 BLANK 60 BLANCS DROP 1- C! 


: EFFLG 


DSEGMENT SWAP BLANCS ROT 80 # $»SCREEN ; 


: EFFLS 1+ SWAP 00 I EFFLG LOOP ; 
: AFFLG= 0 SWAP AT 80 205 REPLICATE ; 


8 


: NORMAL 45 ATITR ! ; 


VARIABLES LONGM COLM LGNM FLECH NBRM ADRM SENSM ADRMESS 
INVERSE 112 ATIR ! ; 


: NORMALZ2 7 ATTR ! ; 
: MODULO FLECH @ DUP NBRM @ > 


IF DROP 1 

ELSE DUP 1 € 
IF DROP NBRM @ 
THEN 

THEN FLECH ! ; 


: ADRECR 1- SENSM @ 0- 


1F 80 # ELSE LONGM @ *# THEN 
LGENM @ 80 x + COLM @ + ; 


: ADRN 1- LONGM @ x ADRM @ + ; 


: RFF 
: AFF2! 


RORN LONGM @ ; : AFF1 AFF1" 
1- 2% ADRMESS @ + @ COUNT ; 


1YPE ; 


: AFF2 AFF2' TYPE ; 


: AFF12 AFF! 


-TRAILING TYPE SPACE AFF2 ; 


: AFFMESS 


NORMAL? 0 0 AT 64 32 REPLICATE 1- 2x ADRMESS @ + @ 
DSEGMENT SWAP COUNT 0 $>SCREEN ; 


: AFFICHM 


OUP ADRN LONGM @ ROT ADRECR >R DSEGMENT -ROT R> 
$rSCREEN ; 


: CHANGE 


NORMAL FLECH @ AFFICHM INVERSE FLECH +! MODULO 
FLECH @ OUP AFFICHM RFFMESS ; 


: TOUCHE 


SENSM G@ 0= DUP 
1F 
BEGIN DROP KEY2 DUP 


CASE 13 OF TRUE ENDOF 
27 OF TRUE ENOOF 
200 OF -1 CHANGE FALSE ENDOF 
208 OF 1 CHANGE FALSE ENDOF 
32 0F 1 CHANGE FALSE ENDOF 
FALSE SWRP 
ENOCASE 
UNTIL 
ELSE 


BEGIN OROP KEY2 DUP 
CASE 13 OF TRUE ENDOF 
27 OF TRUE ENOOF 
203 OF -1 CHANGE FALSE ENOOF 


92 OF 7 CHANGE FALSE ENDOF 
FALSE SWAP 
ENDCASE 
UNTIL 
THEN ; 


: CADRE 


: MENCOMT 


: RENSPAR SENSM ! 
: MENCOM RENSPAR MENCOMIT ; À 


2OUP AT 187 EMIT 
NBRM @ 0 


COLM @ 7- LGNM @ 1- 
LONGM @ 32 REPLICATE 201 EMIT 
?D0 1+ Z2OUP AT 186 EMIT OVER 

LONGM @ + 1+ OVER AT 186 EMIT 
LOOP 1+ AT 200 EMIT LONGM @ 205 REPLICATE 188 EMIT ; 

NERM @ 1+ NORMAL 1 

00 I AFFICHM LOOP SENSM @ 0: 

1F CADRE THEN 
INVERSE FLECH @ OUP AFFICHM AFFMESS TOUCHE FLECH @ SWRP ; 

LGNM ! COM ! FLECH ! ; 

sart avec choix et touche 


: ENTMEN 
NERM G@ O0 ?00 HERE LONGM @ 1+ BEANK ASCII " WORD OUF 
1+ SWAP LONGM @ CMOVE LONGM @ ALLOT LOOP ; 

CREATE VIDE 1 €, 32 €, 

: ENTMES HERE ADRMESS ! NERM @ 0 700 VIDE , LOOP ; 

: MESS 
ASCII " WORD SWAP OUF NBRH @ <= 


IF 1- 2% ADRMESS @ + ! HERE COUNT 1+ ALLOT 


ELSE DROP THEN UROP ; 


: SORTMEN 
DUP C@ LONGM ! 1+ DUP C@ NBRM ! 1+ OUP @ ADRMESS ! 
2+ AURA ! ; 
nbrm,longm , ---- Congm , nbrm , adrmenu , puinte ere adr 
des mrPssages 
:DEFMEN 
CREATE DUP LONGM ! OUP C, OVER NBRM ! OVER C, w 24 
HERE + , ENTMEN ENIMES OGES) SORTMEN ; 


CE PR de tr eee de Ce de ee nr om ee rie 


: QUI? 24 EFFLG 0 24 AT 


Sr NN 5 © — 


Explications des mots: 

VARIABLES sert à déclarer plusieurs variables en mere 

temps. Je Le trouve plus Lisible qu'une succession de 

VARIABLE VAR VARIABLE VAR2Z etc... 

EFFEG On ----  ) efface une Ligne donnée grace à ta 

chaine BLANCS 

EFFLS n1,n2 --- ) efface un groupe de Lignes de n1 à n2. 

AFFLG= On -+- ) affiche une Ligne de ':' 4 La Ligne n. 

KEY2 © ---- car) sort Le code de La touche frappée au 

clavier en un seul code. Normalement par KEY La touche F10 

sort deux codes: Ü puis 68 

Dans KEY2 elle sort 68 + 124 = 196 directement. 

Viennent ensuite Le concept de menu définit par :DEFMEN 
:DEFMEN  <nom) © Nombre Longueur (rien mais | 


ariables renseignées)) 


définit une nouvelle structure où sont compilées: 


-La Longueur de chaque Ligne LONGM 
-te nombre de barres de menu € de Lignes) NERM 
-l'adresse de La première adresse des messages AURMESS 
-Les chaines de menu proprement dites AURM 


painte ici 
-les adresses des messages proprement dits et nun Les 
messages eux-memes puintant au depart sur VIDE (chaine 
de 1 blanc) 
Le mot MESS permet de rentrer Les messages qui de Longueur 
variable (max 80) sont compilés à La suite du diction- 
naire. Ces messages ne sont pas obligatuires. 


Exemple 1 sans message 

2 :UFFMEN VALIOS$ Oui"Non' 

." Confirmez-vous ?" à 

5 24 EFFLG ; 


1 65 24 VALIDS 1 MENCOM DROP 1 
Exemple 2 tiré d'un exemple paru dans JEOI de M.ZUPAN 
S :DEFMEN IMP$ Ouvre"Ferme" 
MESS Quure une redirection: l'imprimante sera passive" 
MESS Ferme uar redirection: L'anmprimante redevient active" 
IMP$ rend courant ce menu et renseigne Les variables 
associées. 


Le mot MENCOM est Le mot utilisateur qui permet d'utiliser 


Ce menu, 
VARIABLES <FROM FROM) REDFL CHDFP 


: FILENOM 


PAD 14 EXPECT PAD SPAN &G DUP 0: 
IF ASCII Z PAO C! 14 THEN + Q SWAP CI ; 
TO ?OPEN DUP CFROM ! DUP (FROM) ?00S ERR FROM) ! 
OPEN PAD ODUP 0 (SEHRCHO) 
IF 1 COPEN) ELSE 0 (CREATE) THEN ?O00S-ERR 
DUP 0 0 ROT 2 (SEEK) ?00S-ERR 2DROP OUP TO» | 
SWAP (T0) ?DOS-ERR ; 


RESTORE 
FROM» @ OUP FROM @ (10) YOUS-ERR (CLOSE) TO» @ (CLOSE) ; 
102 REDFL @ IF RESTORE THEN TO REDFL ON ; 


: RESTORE? 

: REDIR? 3 22 EFFLS 7 10 
IF DROP 
ELSE 1 = 

IF 0 15 AT 


REDFL @ IF RESTORE REOFL OFF THEN : 


13 IMPS 7 MENCUM 27 


H 


." Nom du fichier: " FILENOM 4 TO2 
ELSE RESTORE2 JHEN 
THEN 3 22 EFFLS ; 
avec Les définitions correspondantes 
La Suite 1 10 13 IMP$ 1 MENCOM s'explique ainsi. 
Le premier 1 indique Le choix sur Laquelte La barre en 
inversion vient pointer au départ: Choix par défaut. 
10 13 € Ligne colonne) donne Le coin supérieur gauche 
du menu, 
Le dernier 1 indique Le sens du menu 0 = 
horizontal. 
Ce nombre est d'ailleurs testé dans Le mot MENCOM1 pour 
encadrer un menu vertical. 
Le mot MENCON sort avec deux nombres: 
touche de sortie pressée. Cette dernière est soit ESC ou 
RETURN. À l'utilisateur de Leur donner un sens. 
Dans L'exemple, Le cas ESC (27) permet d'ignorer Le choix 
DROP) l'autre cas prend en compte ce choix: de 1 à 2 dans 
L'exemple. Au fait Les touches valides Lors du choix sont 
Les flèches, ,ESC et ENTER. Flèches Gauche et Droite pour 
horizontal et Haut Bas pour vertical. 


vertical et 1= 


Le chaix et La 


exemple 3: Menus imbriqués horizontaux s'ouvrant sur des 

verticaux: 

RORMDE AUDE HE IEEE MENU GÉRÊT AU HAN MN NN 
12 : DEFMEN 

choix 1"Choïx2"Churx1"Chorxä"ChoixS "Quitter" 

MESS Appuyer sur ESC pour quitter 

RONDE DEONONODONEDE DE UD DEEE EH EN NA MENU verticaux LEELESE 

13 :DEFMEN MENVI$ Ch11"Ch12"Ch13" 

16 :DEFMEN MENV2$ Ch21"Ch22" 

16 :DEFMEN MENV38 Ch31"Ch32"Ch33"Ch34" 

14 :DEFMEN MENV4$ Ch41"Ch42"Ch43" 

14 :DEFMEN MENVSS CH51"CH52" 

Comme à l'issue de chaque choix horizontal doit 5e faire 


MENUTS$ 


Sn cr TU AN. NS ee ON En 2e D DE SN ne LE ve CE | ut be 


un nouveau choix verticat. Il faut définir ces mots. 
MENVT 7 1 4 MENVIS O0 MENCOM ; \ Premier vertical 

5 MENV2 7 12 J MENV2$ O MENCOM ; 

: MENV3 1 24 3 MENV3$ 0 MENCOM ; 

: MENV4 2 36 3 MENVA4$ O0 MENCOM ; 

: MENVS 7 48 3 MENVS£ 0 MENCOM ; 

: MENVG O0 27 ; \ quitter donc rien à faire ! 

6 CASE: MENVER MENVT MENV2 MENV3 MENV4 MENVS MENVE ; 


: NO 0 24 AT ." Action non disponible pour Le moment." 
KEY DROP 24 EFFLG ; 
Tous Les chaix verticaux sont alors répertoriés dans une 
matrice 10x6. Le nombre 10 est ici surdimensionné car il 
correspond à 10 choix verticaux. 

CHOIX : 0 1 2 3 4 5 6 7 8 3 
bien sur il faudrait bcrire Les mots CH11 etc.. 
60 CASE: CHDIXACT CH11 CH12 CH13 ND NU NO ND ND ND ND 


CH21 CH22 ND ND NI ONUE ONE NI) NU NU 
CHAT CH32 CH33 CH34 ND ND ND ND ND ND 
CH4T CH42 CH4% ND NO ND ND NÜ NO ND 
CH517 CH52 NO NO ND NO ND NO ND ND 


ND NU ND ND NO ND ND ND ND ND ; 
\ Le choix de départ est 2 et chaque nouveau est gardé pour 
\ que revenant d'un menu vertical, on aille bien au choix 
\ horizontal correspondant. 
: MENU 
INFTVID 2 CHOEEF ! BEGIN 2 AFFLG= CHDEP @ O0 1 MENUMS 
1 MENCOM OVER CHUEP ! 
13 = IF 1- MENVER 2 
IF 
\ on vient de valider un choix vertical donc Saut à La 
\ routine correspondante dans La matrice 10x6 et vive La 
\ multi-vectorisation ! 
CHDEP @ 1: 10 # + 1- CHOIXACT 
ELSE OROP THEN FALSE 
\ sortie d'un choix vertical par ESC: On remonte au 
\ choix harizantal Sans rien faire. 
ELSE TRUE \ sortie par ESC on Sort de MENU 
THEN UNTIL OROP 


22 EFFLS 2 AFFLG= 13 + 


\.2: 
\ Exemple 4 

\ Un autre possibilité de ces menus déroutants est de Les 
\ utiliser pour choisir parmi un groupe restreint de 

\ données que l’on ne connait pas à La compilation du 

\ programme mais stockées dans un fichier annexe. Je 

\ m'explique: Vous avez à choisir parmi des groupes de 30 
\ dont Les noms, prénoms et âge sont dans des 

\ ASCII sur 
\ 


personnes 
fichiers 
\ Nomi 


disque de La forme: 
:Prénomi el 


JED N°50. FEVRIER 1489 


6 


\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
5 
\ 
\ 
\ 


30 5 


\ 


\ Nom2 :Prénam2 :29 
\ Nomi 
\ Nomé :Prénomé :0 :10 :5 :68 


\etc dont on ne sait pas forcément te nombre total mais 
dont on sait un maximum jamais atteint. Les NOMS vont 
servir d'intitulés de menus et Les prénams vont servir de 
messages correspondants. Las äges et dates de naissance 
vont être mises dans un tableau annexe. 

Le menu va être horizontal Car sinon 30 Lignes ne tiennent 
pas à L'écran. La Longueur de chaque menu doit être un 
diviseur de 80 car sinon des noms seraient coupés par Les 
bords de L'écran. Dans L'exemple, it est de 20 et quatre 
noms peuvent tenir dans une Ligne. La notion d'horizontal 
devient alors ambigüe car L'écran à L'aspect suivant: N0M1 
NOM2 NOM3 NOM4 

NOM5 NOMG etc... 
IL faut donc un utilitaire permettant de Lire ce fichier 
et de renseigner Le menu correspondant. C'est Le mot INIT 
Mais auparavant quelques définitions 
VARIABLES PARAM CPIR2Z CPTR HANDLE2 NBPAR 
NEPAR va contenir Le nombre de paramètres derrière Le 
prénom 
PARAM contient La zone où seront rangés CES paramètres 
:DEFMEN NOMS$ 
C'est tout puisqu'on ne connait pas Le contenu 


-TRAIL- -TRAILING BL SKIP 5 © adr,ten ---- adr1, Len? ) 


à DVAL -TRAIL- PAD PLACE 8L PAD COUNT + C! PAD NUMBER? 


0= IF 20ROP 0 O0 THEN DROP ; 
ouverture pour séquentiel 
{ Adr avec 0 au bout,len ----- handle ) 


: OPENS 


2OUP DROP ?OPEN 0 (OPEN) ?D05-ERR HANDLE ! 
LINE# OFF PATHNAME! ; 


12 STRING FICHNOMS 0 C, FICHNOMP,.TXT" FICHNOMS $! 


\ 
\ 
\ 


Le 0 au bout sert pour La compatibilité avec Le D0S où Les 
nams de fichiers doivent 5e terminer par un 0 
#unss Lecture séquentielle du fichier HARMAN 
INIT 
NBPAR |! PARAM ! HANDLE @ HANDLE2 ! OPENS 
BEGIN 
BUFFER HANOLE @ (GETLINE) NBRM @ CPIR G = OR 
BUFFER COUNT -TRAIL- NIP 0: OR NOT 
WHILE 
BUFFER COUNT 2OUP ASCII : SCAN DR DUP DR NIP OVER - 
-TRAIL- LONGM @ MIN ADRM @ CPTR @ LONGM @ * + SWAP 
OVER LONGM @ BLANK CMOVE 
Ro 1+ R> DUP 0€) 
IF 1- 2OUP ASCII 
NIP OVER - 
-TRAIL- HERE ADRMESS @ CPTR @ 2x + ! HERE PLACE 
HERE OUP C@ 20 MIN DUP 1+ ALLOT GWAF C! CPTRS OFF 
BEGIN 
R> + R)> DUP UC) 
WHILE 1- 2OUP ASCII 
DUP DR NIP OVER - 
DVAL CPTR @ NBPAR @ » CPTR2 @ NBPAR @ 1- MIN + 
PARAM @ + CI! CPTR2 141 
REPEAT 
THEN 2DROP 
CPTR 1+1! 
REPEAT CPTR @ ADRM @ 3 - C! 
HANOLE2 @ HANDLE ! ; 
INITNOM NOMS FICHNOMS PAD 5 INIT ; 


CPTR OFF 


: SCAN )R QUF DR 


: SCAN DR 


CLOSE 


: CHOIXNOM 


\ 


\ 
\ 


INITVIO INITNOM 3 22 EFFLS 14 3 AT ." Quel nom ? 
1 15 5 MAT$ 1 MENCOM 3 22 EFFLS ;* 
CHOIXNOM retourne Le code et Le numéro du choix 
Exemple 5 Choix d’un fichier sur disquette pour par 
exemple Le Lister : 


50 CONSTANT MAXDIR 16 STRING B$ VARIABLE CPTR 


MAXOIR 16 


14 


8$ INPUTS 


:DEFMEN DIR$ 
STRING FICH$ 0 €, " " FICHS $! 
INITOIR DARK CPTR OFF UIRS MAXDIR NBRM ! ." Masque EUR 


B$ NIP 0= A$ + 1- C@ ASCII : = OR 
IF “ #«.#" B$ APPENDS THEN 
128 SET-DMR B$ PAD PLACE 0 PAG COUNT + C! PAD 1+ 
16 (SEARCHD) 
1F 

BEGIN B$ DROP + C@ ASCII : = 
IF B$ OROP 2 ELSE 8$ OROP O0 THEN 
FICHS $! DMA 30 + DUP 12 0 SCAN DROP OVER - 
FICH$ APPENDS 
FICH$ LONGM @ MIN ADRM @ CPTR @ LONCM @ x + 
GWAP OVER LONGM @ 
BLANK CMOVE CPITR 1+! 
MAXDIR 1- = OUR 


(SEARCH) NOT CPTR @ 


Jen N°50 - FEVAIER 198 


UNTIL 
THEN CPTR @ ADRM @ 3 - C! ; 
INITOIR commence par Lire Le directory dont Le masque à 


_ 


\ été rentré à La demande; IL peut comprendre Le numéro 
\ du drive, des jokers etc... 
: CHOIX 


INITVID INITOIR DIR$S NBRM Q@ 0: 
IF CR ." Aucun fichier sélectionné" 
ELSE 1 0 10 DIR$ 1 MENCOM 13 = 
IF AFF1' -TRAILING FICH$ $1 O FICHS + C! 
HANOLE @ ECHO @ ECHO ON DARK 
FICH$ OPENS : 
BEGIN GETLINE ST0P? E0F? @ OR UNTIL 
CLOSE ECHO ! HANDLE ! 
fit UNUP 
THEN 
THEN ; 
Allez bon courage pour décortiquer tout Ça. Mais Ça 
fonctionne ! Vous pouvez me croire. Avec ceci et pas mat 
d'autres choses Je gère L'ensemble des résultats 
scolaires des élèves d'un établissement. (relevés 
mensuels, trimestriels, moyennes, editions multiples, 
histogrammes etc...) 
Ca fonctianne Sinon je me 
doigts. 
Et tout en Forth avec des soupçons de LM 
Gi ça interesse quelqu'un ! 


serais fait tapé sur Les 


RS 


TéLÉMATIQUE ee 


FORUM SAMxJEDI 


Quelques mots sur Le serveur SAM*JEDI: te nombre de 
communications est devenu consistant (moyenne de 3 heures 
de connexions par jour en semaine). Mais apparement, peu 
d'adhérents se connectent. 


Le FORUM de SAM*JEDI est La “Hot-Line” 
permettant de poser TOUTES Les 
Langage FORTH et Les difficultés de programmation que vous 
pourriez avoir en utilisant TURBO-Forth. Nous garantissons 
(pour Les questions concernant FORTH) une réponse dans un 
délai de huit jours maximum (sauf périude de vacances...). 


télématique vous 
questions concernant Le 


Maintenant, pour écrire au SECRETAIRE, il n'est plus 
nécessaire de chercher mon pseudo dans L'annuaire, mais 
simplement de déposer Le message au SY50P JEDI. 


Dans Le téléchargement de programmes, vous y trouverez tous 
Les Listings accompagnant Les articles de La revue Lorsque 
ceux-ci sont indiqués en tète d'article par "dispanibili- 
té:". La rubrique FORIH à été éclatée en six Ssous- 
rubriques: 

1 Ctrt graphique et vidéo 
Gestion de fichiers 
Mathématiques 
Iurbo-Forth et extensions 
Divers 

6 Novix NC4016 et Harris RTX2000 
suit un total de 49 fichiers disponibles au 19/03/83. 
Sant également disponibles des pragrammes En C, dBASE, 
assembleur MSD05, PROLOG et divers (code machine, BASIC, 
Bit ids 


un sw Re 


SECRETAIRE 23,12.88 13h51 
DISPONIBILITE DU MODULE 6: Enfin nous sortons Le module 6, 
L'un des plus gros diffuses à ce jour, car il represente 
pres de 200ko de sources el de codes: 

- FWINO et FWMENU, fenetrage en HERCUL. 


- Tout WOROPERFORTH, un. super (mais alors vraiment 
G-U-P-E-R) editeur ASCII pour remplacer EDIT.COM et 
EOITERR.M6G du module 1. WPF est un clone de WORDPERFECT 
qui tient, tenez-vous bien, en 16 Ko de code compile. Et 


tout ca, Livre avec Les fichiers source!!l Non? SI! 

- BUFFERS gestion de tampons 

=  LOOBIN et SAVBIN.BLK pour F83 Laxen et Perry MSDOS, 
chargement et sauvegarde de code pre-compile. 
Le module 6 est envaye contre 10 timbres à 
Commande à adresser à: 

ASSOCIATION JEU! 717, 
Si vous ne disposez pas de 
acquerir tous Les modules: 

- modules M1 a M6: 190 Fr, port compris. 
Sinceres salutations. 


3,70 Fr. 


rue de La Lancette 75012 PARIS 
TURBO-Forth, vous pouvez 


SECRETAIRE 23.12.88 14h04 
REPONSE A F32 CONCERNANT UECOMPILATEUR: 
Le mot SEE version MSDOS ou F83 CP/M fonctionne de La meme 
maniere. Chaque type de mot est defini par classe: 
constantes, variables, Literat number, 
caracteres... 
Pour TUR8O-Forth, sant egalement definis 
- variables chaines, constantes et var 32 bits. 
Un mot FORTH est decoupe en quatre Zones 
- nfa, fa, cfa, pfa (zone parametre) 
Pour un mot compile par La zone parametre contient Le code 
compile. A chaque paire d'octet de cette z0ne correspond un 
cfa qui est celui du mut à executer. Le pfa d'un mat est 
calcule par: 
" mot 2+ 
Exemple: 
AU-CARRE  n --- n#n) 
OUP * ; 
" AU-CARRE  2+ 
cfa de OUP 
* AU-CARRE 41 
Un nombre entier non defini comme 
code (LIT). Ex: 
+32 (€ n --- n+32) 32 + ; 
1 #32 2+ pointe sur L'adresse contenant Le cfa de (LIT) 
1432 4+ pointe sur L'adresse contenant une valeur entiere 
16 bits. 
D'ailleurs, SEE +32 affiche 


chaines 


pointe sur L'adresse memuire contenant te 


pointe sur L'adresse memaire cuntenñnant # 
constante e5t precede du 


+32 (LIT) 32 ...etc... 
Une chaine de caractere definie par “ ou ." est precedee en 
version compilee par €") uw (.") et de La Longueur ur La 


chaine sur 8 bits, puis du contenu de La chaine. 
Pour un mot defini autrement que par : il faudra tenir 
compte de La nature des uonnes placers dans La Zone 
parametrique. Attention, une definition du type 

CREATE TRUC 100 ALLOT 
danne en decumpilatiun: 

VARIABLE TRUC cantenu nnnn 
On ne peut mettre en evidence Le mode de definition qu'en se 
rapportant rigoureusement à un type de definisseur 
precis: CONSTANT, VARIABLE, 2CONSIANT, Z2VARIABLE, UEFER, 
VOCABULARY, MARK, et egalement STRING paur TFB3. 


IL est tres difficile de creer un decompilateur capable de 
tenir compte de tous Les cas de figure: ceux existants 
deja ou ceux definis par L'utilisateur. Un exempte de pieyge: 
en 1F83, La structure dre type: 

: mot.... ASML JEORTH... ; 
n'a pas ete prevue initialement dans Le decampitateur, dunc 
SEE plantera quand il visualisera MOT. Ceci est du au fait 
que ASML cree un pseudo-cfa et que ce pseudo-cfa ne painte 
sur aucun en-tete. 


Un autre piege tres difficile à eviter est celui des types 
de branchements. Par exemple, IF..THEN compile un ?PERANCH et 
SEE ne peut savoir ensuite $i Ce ?BRANCH vient d'un IF ou 
d'un CASE! It en est de meme pour BEGIN..UNTIL. Certes, LE 
FORTH de GUILLAUMAUD arrive a resoudre ce probleme, Mais Sa 
resolution alourdit considerablement La structure du code 


FORIH (marqueur de type de branchement ou gestion de 
tableau) 
En fait, Les. seuls decompilateurs exploitables et 


satisfaisants sont soit SEE (Cequipant d'uffice F83 et TF83) 
soit un decempilateur recursif permettant La mise en 
evidence du chainage des procedures, 

Voita, J'espere avoir repondu sommairement à votre attente. 
RHEMY 23.12.88 15h43 

JE SUIS ARRIVE A TELECHARGER MAIS 
MARCHENT PAS. 


LES FICHIERS .EXE NE 


SECRETAIRE 26.12.88 08h11 

REPONGE A RHEMY: ATTENTION, LES FICHIERS QUI NE SONT PAS EN 
ASCII OOIVENT O-ALI-GA- ICI-RE-MENT ETRE CHARGES AVEC LE 
PROGRAMME TELECHAR LEQUEL FIGURE SUR LA DISQUETTE KERMIT ET 
FOURNIE PAR NOUS. POUR VOUS PROCURER CE PROGRAMME, LAISSEZ 
GIMPLEMENT VOS COORDONNEES DANS LA BAL SECRETAIRE où au 
SYSOP SUR CE SERVEUR. 

A L'ATIENTION DE TOUS: OORECNAVANT, JEDI DIFFUSE GRATUITEMENT 
KERMIT, Y COMPRIS DISQUETTE ET FRAIS DE PORT. FOUR VOUS LA 
PROCURER, LAISSEZ VOS CUORDONNEES DANS LA BAL SECRETAIRE. 
MERCI. 

SECRETAIRE 26.12.88 15h30 

ENYGME DE SYRACUSE POUR MATHEUX: 

\ Algorythme de La suite de Syracuse: 
\n pair? n2=:n1/2 n impair? n2:n1x34+1 


--- n2) 


: SYRACUSE € n1 


QOuP 2 MO0 IF 3 *x 1+ ELSE 2/ THEN ; 
SUITE € n ---) 
BEGIN SYRACUSE  DUP 
UP 1 = UNTIL ; 
Le principe est simple, pour chaque vateur de n, SUITE 


delivre une sequence de nombres. Cette suite tend-elle à 
croitre ou a decraitre? A ce jour, aucune demonstration 
formetle ne peut y repondre. Et vous, qu'en pensez-vous? 
Essayez avec tous Les nombres de 1 a 40: pour 27, Le 
resultat est surprenant! 

30.12.88 13h23 

SERVEUR 
vont uñ peu 


SECRÉTAIRE 
CUMRITENANCE 
Des travaux de maintenance 


perturber Le 


serveur. Le materiel Sera bientot demenage et La ligne 
TRANSPAC transferee. Rien ne changera pour Ll'acces par 
3615 à part qques perturbations dans Les jours qui 


viennent, 

Les nouveaux softs dispos en telechargement ont ete montes 
sur te nouveau serveur et sercnt disponibles des 
L'activation du nouveau chemin d'acces par TRANSPAC. 


SECRETAIRE 05.01.84 13h21 
NOUVEHUX SOFTS EN TELECHARGEMENT: De nouveaux softs ont ete 
places en telechargement: 

C: 4 Logiciels dont Le source et La doc de KERMIT PC 
(en anglais); tours de HANOI; jeu de La vie. 

FORIH, sous gruupe base de donnes, programme RECORD.FTH 
(diffuse egalement sur module MB); sous groupe divers, 
GEILES.FTH (diffuse egalement sur M6) et 
FILTER.FTH (diffuse prochainement sur 
no 49) 


M7 et prochain JEDI 


SECRETAIRE 11.01.89 13h52 
UN META-COMPILATEUR 6809 SUR PC EN FORTH. J'ai mis au puint 
un meta-compilateur generant du code 6809 sur PC et ecrit 


en  TURBO-Forth. Certes, pratiquement plus personne ne 
s'interresse a cette gamme de materiel. 

Mais cette experience à permis de mettre à jour Les 
difficuttes de develuppement d'un generateur de code cible 


pour un processeur different de celui du pc. 

Actuellement, je geneie de petits programmes de tests (30 à 
50 octets) qui tournent ensuite sur THOMSON T07 70 

Avec La compilation conditionnelle (voir ?\ et EXIST? sur 
un precedent message) on pourra creer des programmes 
uniques tournant sur différents types de systèmes equipés 
de processeurs trés divers. 

ESTHETE 14.01.89 18h07 

RECTIFICATIF À MON PRECEUENT MESSAGE: QUE CONTIENT LE VFA? 
PLUS PRECISEMENT LE Nu DE FICHIER? MERCI. 


16.01.89 10h06 
ATARI: Qui, notre TURBO-Forth en disquette 
Le test de La 


SECRETAIRE 
TURAO-FORTH SUR 
3'1/2 tourne Sur ATARI sous emulateur M5005. 


boucle a vide 10000 O0 00 LOOP s’execute en environ deux 
secondes, ce qui est honorable puur un pmulateur sur ce 
type de systeme. L'appel de L'editeur et Le retour sous 


TURBO 5e passe 5ans probleme. 

J'encourage dunc tous ceux qui utilisent 
commander 1TF83 M6D0S S'its disposent de cet 
nous aident a developper des programmes en 
FORTH, 


un ATARI à 
emulateur et 


SECRETAIRE 16.01.89 10h59 
LES DIFFÉRENTS CHAMPS EN FURTH sont: 

vla: Champ de vue 

Lfa: champ de Lien 

nfa: champ du nom 

cfa: champ de code d'execution 

pfa: champ parametrique 
et dont Les significations sont: 
VFA (View Field Addres); est obtenu par VIEW (€ cfa --- 
via); ce champ puinte sur Le numero de fichier Chandle) et 
Le numero de blac cantenant La definition du mot compile. 
En F83 Laxen et Perry  (MS00S ou CP/M), un VIEW <mot> oùvre 


Le fachier et Liste Le blac contenant cmoto. En TUÜRBO- 
Farth, ce champ a ete reaffecte au mot HELP et pointe sur 
un des fichiers d'autudocumentatiun. 

LFA (Link Field Addres); est obtenu par LINK (cfa --: 


Lfa): ce champ pointe sur te nfa du precedent mot defini 


dans Le vocabulaire. 


NEA (Name Field Addres); est obtenu par NAME (cfa --- 
nfa): ce champ 8 bits cantient sur Les cinq octets de poids 
faibte, La Longueur du Libelle du mot, un bit de 
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validation, un bit de precedence (mot immediat ou non) et Le 
bit de poids fort à 1. 


CFA (Code Field Addres); est obtenu par " émot); ce champ 16 
bits contient La partie execution du mot de definition: 
DOCOL pour un mot : 
O0CON pour un mat CONSTANT 
O0VAR pour un mot VARIABLE 
O00EFER pour un DEFER 
etc 
partie OOES> pour un mot defini par 
un mot de type <motr CREATE . DOES) 


cfa+2 pour un mot en code machine. 
Le cfa est Le champ Les plus important pour L'interpreteur- 
compilateur FORTH. Ce sont ces adresses qui sont compitees 
dans Le pfa d'une definition : tdeux-points). 


PFA (Parameter Field Addres); est obtenu par >BODY (cfa --- 
pfa); ce champ est de Longueur variable et contient selon Le 
mot de definition: 
- une succession de 
(deux-points) 
- valeur 16 bits si definition CONSTANT, VARIABLE, DEFER 
- code machine si definition CODE 
Si Le mot de creation est CREATE, Le champ pfa est vide au 
depart. Sa taille dependra des directives qui suivent La 
definition du mot: 
CREATE BIT 4 C, reserve 1 octet dans Le pfa de BIT 
CREATE 1KBIT 1024 ALLOT reserve 1 Koctet dans Le pfa de 
1KBIT. 
Un mot defini par 
par VARIABLE. 


cfa si definition compilee par 


CREATE sera execute comme un mot defini 


DANELUZZ0 16.01.89 16h49 

JE REALISE UN PROTOTYPE DE MACHINE DE CONTROLE DE PIECES DE 
VISSERIE PAR VISION ROBOTIQUE POUR UN INDUSTRIEL. LE 
DEVELOPPEMENT DE F32 M'APPARAIT SEDUISANT PAR RRPPORT A LA 
RECONNAISSANCE DE FORMES. YŸ A T-IL UN MOYEN O'AVOIR UN ETAT 
DES TRAVAUX ET QUELS SONT LES CONTACTS POUR INTERVENIR? 


SECRETAIRE 16.01.89 17h23 
REPONSE A OANELUZZ0: F32 AVANCE SON PETIT BONHOMME DE 
CHEMIN. EN CE QUI CONCERNE LE HARD,CONTACTER P. ORTAIS AU 


1-69261090 HOB, OU LAISSER MSGS DANS BAL FF32 (LA BAL F32 
AYANT UN PEU CAFOUILLE AU MOMENT OÙ CHGT DE MATERIEL ET 
TRANSFERT DE FICHIERS DU SERVEUR). 
JLUC 18.01.89 16h26 
SUITE A L'IDEE DE FORTH7 
: QUERY2 250 TIB ! TI8 10 BO0S DROP 
TIB 1+ C@ 2+ OUP SPAN ! 
#TIB ! 2 IN ! CR ; 

EN REMPLACANT QUERY PAR QUERY2? DANS LE MOT QUIT ET POUR PEU 
QUE DOSEOIT SOIT CHARGE ON OBTIENT UN EDITEUR DE COMMANDE. 
LE PROBLEME EST QUEL'ON A PLUS LES TOUCHES DE FONCTION !I! 
FLIPO 18.01.89 19h43 
Jde me permets de temperer L'optimisme de notre Secretaire, 
quant a L'utilisation de TURBO-FORTH sur ATARI -ST 
1) IL faut acheter(ou pirater !)PC-DITTO 
2) On perd tout Le benefice d'avoir un processeur rapide (le 
68000)... 
3) On ne dispose plus d'une interface GEM. Developper sur 
ATARI sans GEM n'a pas de sens... Û 

LA SEULE BONNE SOLUTION POUR UTILISER TURBO-FORTH SUR 
ATARI serait de 

a) reecrire Le code machine pour 68000 

b) de mettre Le SUPER-editeut sous GEM 

c) d'ajouter une interface GEM, Les appels au BIOS, Le 
multi-taches etc.. 
Ce serait un projet interessant, mais compte tenu du peu de 
programmeurs en FORTH Sur ATARI, Le jeu en vaut-il La 
chandelle ? IL faut acheter (ou pirater!) PC-DITTO. De toute 


maniere, je ne suis pas pret à me Lancer seul... S'il y 8 
des gens interesses qu'ils 5e fassent connaitre. Je suis 
d'accord pour “cotlaborer"{ Qn ne dispose plus d'une 
interface Pour mes besains personnels, Le  VolksS-FORTH 
egalement diffuse par L'association me convient 


parfaitement: il est rapide, completement interface avec GEM 
et permet tous Les appeis systemes.. Amities aux 
ATARIstes... et aux autres! 


LAMBERTPH 20.01.89 13h03 

IL ME SEMBLE QUE TIG PARTAGE L'ESPACE DE LA PILE RETOUR DANS 
TURBO-FORTH 256 OCTETS POUR LES DEUX N'EST CE PAS DANGEREUX? 
- DEMANDE CONFIRMATION OU EXPLICATION - MERCI - 
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LEMAIGRE 20.01.89 15h28 
QUI DISPOSERAI D'UN NOYAU 6809 QU 68HC17 EN FORTH7S OÙ 83 
POUR METACOMPILE. MERCI. 


FORTH7 23.01.89 14h16 


CONCERNANT LE TIB (Tampon d'entree)]: La remarque de M. 
LAMBERTPH est tres judicieuse: il est exact que Le TIB et 
La pile de retour progressent L'un vers L'autre sur Les 


memes 256 octets seton une vieille habitude Forth heritee 
des systemes sur BK ram.... Si Les risques d’ecrasement 
sont faibles, ils existent et il serait bon de Les separer 
dans tes futures versions d'autant que Le tampon du handle 
9 (ctavier justement) est inutilise jusqu'a present. 
Editer Les commandes du TIR via OOSEGIT comme Le propose 
JLUC supprime en effet L'action des touches de fonctiun où 
de controle mais repond a un besoin d'ergonomie Legitime 
aujourd'hui, Je propose une autre solution: ajouter en 
forth de nouvelles touches d'edition en sus des Ctrl-Xx, 45, 
CR trop rustiques! La technique est simple: ainsi La Ligne 
! DARK CC @ CONTROL L 2% + ! 


permet d'effacer l'ecran avec Ctrl-L. Voici un autre 
exemple assez primitif: 
: R-IN 


?OUP 0= IF #TIB @ 2OUP TYPE THEN ; 
? R-IN CC @ CONTROL R 2% + ! 


La touche Ctri-R permet de rappeler La derniere commande 
entree. Avec un peu de forth, on pourrait faire mieux que 
00SEDIT: suffit de demander... 


JLUC 29.01.89 20h04 
Suite à des messages dans Le forum entre moi et FORTH7, Je 
viens de finir une version de DOSEDIT 5ans DOSEDIT externe, 
entierement en forth. Elle est totalement compatible avec 
Les touches de fonction 


dont elle est une extension 
d'ailleurs. Toutes Les entrees passant par Le mot EXPECT 
beneficient de cet avantage (?): edition facile a L'aide 


des touches flechees, insertion et suppression. Mais comme 


ca prend de La place, à bientot de me Lire peut-etre dans 
JdED]. 

LEMAIGRE 30.01.89 19h28 

A T'IL OEJA ETE TENTE DE FAIRE OIFFUSER TURBO FORTH 


GRACIEUSEMENT PAR UN IMPORTATEUR DE COMPATIBLE A LA VENTE 
DE LA MACHINE. LA DOC POUVANT ETRE OBTENUE AUPRES DE JEDI, 
BIEN SUR. UN BON PROGRAMME DE DEMO DE PERFORMANCE SERAIT 
NECESSAIRE. SLT 

LEMAIGRE 30.01.89 19h28 

UNE SOCIETE ALLEMANDE DIFFUSE UNE VERSION MASQUEE DU 68HC11 
MOTOROLA AINSI QU'UNE CARTE D'EVALUATION POUVANT SERVIR DE 
SYSTEME DE DEVELOPPEMENT ET UN ASSEMBLEUR SPECIFIQUE (FORTH 
GASED). J'ATTENO LEUR UOC SI INTERET CONTACTEZ MOI. 
SECRETAIRE 31.01.89 11h50 

EMPILAGE ET DEPILAGE 32 BITS SUR PILE RETOUR: 

Vous pouvez definir DRORODR ; et 


PR) RD OR) ; mais en code machine C'est 
mieux: 
CODE 2R? 
0 CRP3 DX MOV RP INC RP INC 
D CRPJ AX MOV RP INC RP INC 


2PUSH END-CODE 
CODE 20R 


Ax POP OX POP RP DEC RP DEC 
AX O CRP] MOV RP DEC RP DEC 
DX 0 CRPJ MOV NEXT END-CODE 


FONCTIONS LOGIQUES 32 BITS: 
CODE 2AND ( d7 d2 --- d3) 
AX POP OX FOP BX POP BX AX AND 
8x POP BX OX AND 2PUSH END-CODE 
CODE 20R ( di d2 --- d3) 
Ax POP DX FOP BX POP BX AX OR 
BX POP 8BX DX OR 2PUSH END-CODE 
CODE 2X0R € d1 d2 --- d3) 
AX POP DX POP BX POP BXx AX XOR 


BX POP 8x OX AND 2PUSH END-CODE 
CO0E 2NOT € D --- 0") 
Ax POP AX NOT DX POP DX NOT 


2PUSH END-CODE 
FLAGS BOOLEENS 32 BITS: 


CODE 2TRUE € --- dtf) 
65535 # DX MOV DX AX MOV 
2PUSH END-CODE 

CODE 2FALSE ( --- dff) 


0 # DX MOV DX AX MOV 2PUSH END-CODE 


SECRETAIRE 31.01.89 12h05 


CODE u0c € d --- f) 
DX POP CX POP BX POP AX POP 
AX CX CMP U 


1F 0 # AX MOV 
ELSE. 8x OX CMP UK 
FF 0 # AX MOV 
ELSE 65525 # AX MOV THEN 
THEN 1PUSH END-CODE 
SECRETAIRE 31.01.89 12h09 
REPONSE À LEMRIGRE: ADRESSE ANGELIKA FLESH FORTH SYSTEME: 
FORTH SYSTEME CANGELIKA FLESH) 
KUHNHE IMERSTRASSE 21 
POSTFACH 1103 
D - 7814 BREISACH 
TEL:19-49 7667551 
FAX:19-49 7667555 
MESSAGERIE PAR MODEM, 
PROTOCOLE 8N1, 300, 1200, 2400 BDS AU 19-49 7667556 


(RFA/BRD) 


DIFFUSE PRODUITS UR/FORTH, HARRIS RTX2000, FORTH LMI AVEC 
METACOMPILATEURS 8086/8088, ZB0, 8080, 68000, 6803, 6502, 
66HC11, etc... 

SECRETAIRE 01.02.89 12h11 


NOUVEAU SOFTS EN TELECHARGEMENT : 
EN dBASE: SAUVEGARDE ET RESTAURATION VIDEO AVEC SOURCE ET 
DOC 
EN C: GESTION CALENDRIRE ET UN UTILITAIRE CONVERSION .COM EN 
.HEX INTEL. 
EN DIVERS: GESTION TAMPON COMMANDES D0S ET GENERATEUR .COM A 
PARTIR IMAGE VIDEG TEXTE OU GRAPHIQUE CGA, AVEC DOC. 
EN FORTH, RUBRIQUE 4, METACOMPILATEUR CIBLE 6809. CE 
PROGRAMME EST ENCORE UN PROTO. POUR LE MOMENT, LES TESTS 
CONFIRMENT BIEN QUE C'EST OÙ CODE 6409 QUI EST GENERE. 
CE PROGRAMME EST UN EXEMPLE D'APPLICATION DE METAGENERATION 
FORTH PC VERS CIBLE NON PC. IL PEUT ETRE ADAPTE SANS 
OIFFICULTE À D'AUTRES PROCESSEURS, POUR CELA, IL SUFFIT DE 
DÉFINIR UN AUTRE  ASSEMBLEUR. J'AI ESSAYE AUSSI AVEC 
L'ASSEMBLEUR 8080 INTEL DE F43 CP/M MAIS JE N'AI PAS ENCORE 
FAIT LES TESTS, 
CE PROGRAMME REPONORA CERTAINEMENT AUX PREOCCUPATIONS DE 
LEMAIGRE S'IL A LA PATIENCE DE L'ADAPTER AU 8051 RTC. 
A TERME, NOUS SOUHAITONS FOURNIR DES METAGENERATEURS DE CODE 
POUR LA PLUPART DES PROCESSEURS EXISTANTS (80386, 68000, 
HARRIS RTX 2000, ...). MAIS COMME ON NE PEUT TOUT FAIRE TOUT 
SEUL, J'ATTEND BEAUCOUP DE VOS COGITATIONS. 
SECRETAIRE 03.02.89 13h27 
JOURNEES FORTH 1989: ORGANISEES PAR FIG HAMBOURG (RFA), LIEU 
AIX LA CHAPELLE CAACHEN) LES 7, & ET 
9 AVRIL 1989. PRIX: PARTICIPANT 100 OM 
MEMBRE FIG HAMBOURG 60 DM 
ETUOIANT 30 DM 
SOCIETE 120 DM 
STAND 100 DM PAR M2 
4 REPAS 66 DM 
CONTACT: RLOF KRETZSCHMAR 18H À 20H 
AU 19-49 2401.4390 CRFR) 
QU ECRIRE: 
FORTH - Tagungsburo 869 
c/o Rolf KRETZSCHMAR 
Rote Gasse 7 
D - 5112 BAESWEILER 
. SECRETAIRE 03.02.89 13h35 
POUR FAIRE DIRE QUI AU LIEU DE OK A FORTH (FB3L&P ET TF83) 
: QUITTÉ 
SPO @ ‘TIH ! [COMPILE] [ 
BEGIN RPO @ RP! STATUS QUERY RUN 
STATE @ NOT IF ." Oui" THEN AGAIN ; 
ET TAPPEZ QUITTE, MAINTENANT “ Oui" S'AFFICHE À LA PLACE DE 
“ OK". 
03.02.89 13h38 
TAPE ETAIT SYSTEMATIQUEMENT AU FORMAT 32 


SECRETAIRE 
ET SI TOUT NOMBRE 
B1T75?? FASTOCHE: 
: NOUVEAU-INTERPRET 
BEGIN ?STACK DEFINED 
IF EXECUTE ELSE NUMBER THEN FALSE DONE? UNTIL ; 
: NOUVEAU-J STATE ON BEGIN ?STACK DEFINED DUP 
IF 0) IF EXECUTE ELSE , THEN 
ELSE DROP NUMBER DOUBLE? 
IF CCOMPILEJ LITERAL (COMPILE) LITERAL 
ELSE CCOMPILE]J LITERAL THEN 
THEN THEN TRUE DONE? ; 
: NOUVEAU-RUN STATE @ IF NOUVEAU-] 
STATE @ NOT IF NOUVEAU-INTERPRET THEN 
ELSE NOUVEAU-INTERPRET THEN : 


REMPRENDRE LA DEFINITION DE QUITTE (MESSAGE PRECEDENT) ET 
REMPLACER RUN PAR NOUVEAU-RUN. ENSUITE TAPEZ QUITTE ET A 
PARTIR DE MAINTENANT FORTH DEPOSE SYSTEMATIQUEMENT UN 
NOMBRE 32 BITS SUR LA PILE: 

16 3. O+ D. AFFICHE 19 
SI VOUS AVEZ BESOIN DE CONVERTIR UN NOMORE 32 BITS 
BITS: 

: 6>S DRCP ; 
NE FONCTIONNE QUE POUR LES VALEURS POSITIVES INFERIEURES A 
65536. 


EN 16 


DURANTON 03.02.49 19h55 6 

Aux specialistes de TURBO FORTH. Je n'arrive pas a faire 
fonctionner correctement Le multi tache. Le petit pragramme 
d'essai suivant fonctionne sous Laxen et Perry mais pas sur 
turbo-farth. 

BACKGROUND: TOTQ 100 O0 O0 I 

PAUSE LOCP ; 

TOTO WAKE MULTI 

danne comme resultats 

1234 5 6 7 8 9 Îw 1w w I1w 1w etc... 

IU semble que Les nouvelles definitions de EMIT avec appel 
8106 sont incompatibles avec Le multitache. Si quelqu'un a 
La solution permettant de modifier ce comportement du 
multitache... Merci. 


FORTH7 06.02.89 19h33 

REPONSE A M. DURANTON SUR LE MULTITACHE. 

Ni EMIT ni Le bios ne sont en cause! Le mot qui affiche 
un nombre utilise une zone PAD de conversion alphanumerique 
tache-dependante. Par defaut Le systeme affecte à une 
nouvelle tache Les memes variables USER que celles en à 
cours Lors de La definition de La tache et si on n'y prend 
garde ca coince un max entre Les taches... Une solution au 
probleme du PAD (qui est Lie a DP) est dunnee dans Le 
fichier CLOCK.FTH du module 3 (horloge en multitache). Ne 
pas oublier encore: une tache duit se terminer par STOP ou 
ne pas se terminer du tout (BEGIN...AGAIN). 

Le multitache? Mais c'est tres simple! N'est-ce pas MM. de 
MICROSOFT? 


SECRETAIRE 08.02.89 12h11 
DERNIERE NOUVELLE DU RTX 2000 HARRIS: 
LES ESSAIS OU SYSTEME DE DEVELOPPEMENT HARRIS RTXDS EQUIPE 
DU RTX 2000 SONT ASSEZ FAVORABLES. LES BENCHMARKS REALISES 
PAR FF32 OONNENT UNE RAPIDITE DE CERTAINS PROGRAMMES ECRITS 
EN FORTH SUPERIEURE AUX PROGRAMMES EQUIVALENTS ECRITS EN C 
ET ASSM 68030 (30 MHZ), SOIT DES PERFORMANCES SUPERIEURES A 
UN MICROVAX 2. 
NOUS AURONS D'AILLEURS L'OCCASION PROCHRINEMENT D'OUVRIR 
UNE RUBRIQUE MIXTE NOVIX-HARRIS POUR VOUS PERMETTRE DE 
TELECHARGER DES  SOFTS POUR CES OEUX PROCESSEURS. 
NATURELLEMENT, TOUS CES DEVELOPPEMENTS PRIVILEGIERONT LES 
PROGRAMMES ASSOCIES À TURBO-FORTH PLUTOT QUE LE FORTH LMI. 
SECRETAIRE 09.02.89 11h48 
CHAINES DE CARACTERES AVEC CODES DE CTRL Dans un ancien 
message, jJ'expliquai comment caoncatener un code de CTRL 
dans une chaine de caratere. Mais comment faire s'il y en à 
plusieurs? Voici La reponse: 
$CTRL: CREATE DOES> COUNT ; 
Voici comment definir un CRLF contenant CTRL D CTRL A: 
$CTRL: CRLF$ HERE 0 €, 
CONTROL D €, CONTROL AC, 
HERE OVER - 1- SWAP C! 
Ceci est particulierement interressant 
imprimante: 
$SCTRL: 12PITCH HERE 0 C, 
27 €, ASCII ] C, ASCII 5 C, ASCII WC, 
HERE OVER - 1- SWAP C! 
$CTRL: 17PITCH HERE 0 C, 
27 C, ASCII J C, ASCII 6 C, ASCII WC, 
80 STRING TITRES 
12PITCH TITRES $! 
" COMPTES 1988 " TITRES APPENDS 
17PITCH TITRES APPENDS 
“Edition du 09/02/89" TITRES APPENDS$ 
CRLF$ TITRES APPENDS 
PRINTING ON TITRES TYPE PRINTING OFF 
Ainsi Le controle d'impression est contenu 
TITRES. 


pour controler une 


dans La chaine 


SECRETAIRE 09.02.89 12h18 

ERREUR DANS CRLFS$ DEFINI PRECEUEMMENT : 
REMPLACER CONTROL D PAR 13 
CONTROL À PAR 10 
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Appendix 4: Forth Implementation ofthe Prolog Virtual Machine 


Glossary 
The Forth words used to simulate the Prolog machine (screens 29-35) are described below. 


CALL Carity “atom - ) Takes an integer (arity) and a pointer to the pfa of a constant record and 
searches the procedure records for a procedure with the specified arity. Backtracks if unsuccessful. 
Otherwise, if there are multiple applicable clauses, backtracking information is saved: à pointer to 
the next ctause record, a pointer to the next most recent choice-point frame in the control stack and 
the trail and global stack-pointers. Sets the execution mode to match. Also saves the top of the Forth 
return stack in the next Prolog control stack frame and initializes the argument pointer to the first 
argument position in the next control frame {the first memory location after the 12 bytes of control 
information). 

ENTER (- ) Commits to execution of the body of a clause, Sets execution mode 10 arg and adjusts 
control stack pointers. 


RETURN (- ) Indicates success exit. Gets the return pointer saved by CALL and pushes it on the 
Forth return stack. Sets execution mode 10 arg and adjusts control stack poiniers. reclaiming control 


stack frames where possible. 


CONST (atom - ) Match mode: tests whether the next argument js a constant whose name is 
given by atom. Backtracks ifthey don't match; continues with Forth execution otherwise. Arg mode: 


builds an argument with tag = 2 and val = “atom. 


VAR Cn =) Match mode: de-references the variable specified by the input index and then. if the 
variable is unbound, binds it to the argument; otherwise VAR tests whecher the argument matches 
the binding. Backiracks if they don't match; continues with Forih execution otherwise. Arg mode: 


copies the variable binding to the next argument position. 


FUNCTOR (arity “atom - ) Match mode: tests whether the next argument is a structured term 
with the specified arity, whose functor is named by atom. Backtracks if they don't match: otherwise 
saves the argument pointer and resets it 1 point 10 the first argument of the structured term (ie, 
to point to the first cell of the argument field of the structure record pointed to by the input 
argument). Forth execution continues from this point. Arg mode: allocates space for a structure 
record from the global stack and then sets the first two fields of the record (i.e., functor name and 
arity). Builds an argument with tag = 3 and val = “structure. Saves the argument pointer and 
resets it to point to the first cell of the argument field of the structure record. Forth execution 


continues from this point. 


POP (- ) Restores the argument pointer in both execution modes. 


Appendix B: Prolog-PVM Compiler 


[ s=s== ss meme sue munms 


% COMPILER 


% All args are output 

% NVars is the number of vars in the clause 

% Code is the object code 

% Sent is a list of tokens, terminated by the token "." 

% The variable Sent is bound by the procedure ‘read _in*" 


compile __clause(Pred/Ariry,Nvars, Code) :- 
read._in(Sent), 
horn_clause(Pred/Arity, Vars,{ },Cd,Sent,.…), 
nrev(Cd,Code),memberchkN(-1,Vars,-1l ,Nvars). 


JO menses seses 
% Old is che input code sequence ([ ] here) 


horn_clause(Pred/Arity, Vars, Old,{ "RETURN" [New}) --> 
atmf(Vars,Old,[_—..—._{N1),Pred/Arity), 
(["."]{(New=N1}| 
[':-"}aumfs(Vars,['ENTER" {N1],New ) ). 


HO === ÉECES ss EEE mes + 
% atmfs are terms that aren't numbers or variables 
% Argl: list of vars in the clause 
%  Arg2: input code sequence 
%  Arg3: output code sequence 
atmfs(Vars,Old,New } --> 
atmf(Vars,Old,N1,._), 
Œ'.'1{New=NL}|[", ‘J,atmfs(Vars,NI,New) ). 
atmf{Vars,Old,['CALL" ,Pred,0 |Old],Pred/0) --> 
atom__name(Pred). 
atmf{Vars,Old,['CALL' ,Pred,Arity IN1),Pred/Arity) --> 
atom__name(Pred).['("},args(Vars,Old,N1,0,Arity),(")"]. 
FN azzes= === =e== ses s===z= # 


% simple__term parses terms, lists and structured terms in 
% functional form 

% This is basically a case analysis and is meant to be 

A deterministic, thus the cut 

% Argl: Variable symbol list (difference list - built 

% during compilation) 

%  Arg2: Input Code list (input) 

%  Arg3: Output Code list (output) 


reDi N° So - FANBIER laea 


simple__term(_,.) > 
[".‘].!.fail. 


simple_term(Vars,Old,[ "POP * IN1) --> 
atom__name(Pred),{"("], 
args(Vars,(* FUNCTOR ‘ ,Pred,Arity |Old],N1,0,Arity),(")"],!. 


simple__term(Vars,Old,New ) --> 
variable(Vars,Old,New),!. 


simpie__term(__,Old,New ) --> 
constant(Old,New),!. 


simple__term(Vars,Old,New ) --> 
['("],(simple__term(Vars.Old,New ) ; 
conjunction(Vars,Old,New } ),[)"],!. 


simple. term(Vars Old, New ) --> 
list(Vars,Old,New ),!. 


conjunction(Vars,Old,New ) --> 
simple.term(Vars,Old.N1 ),(",°}, 
{simple …term(Vars,N1,New } À conjunction(Vars.N1,New ) ). 


% args parses arguments 

 Argi:- Arg3: sce arguments for simple_term 
%  Argd: arg count (input) 

% Arg5: arg count (output) 


args(Vars,Old,New,NumO,Numt } --> 
simple_.term(Vars,Old,N1), 
(L',"), (Num is NumO+1),args(Vars,N1,New,Num.Numl) | 
[New = N1,Numl is NumO+1}). 


- Mis the N-th character of Atom 
- the ascii code for M is N 


% char(N,Atom,.M) 
% ascii(M.N) 


atom_name(Name) --> 
{Name],Ichar(t,Name,M), 
ascii(M,N).ascii(a,.a),ascii(z, 7), a =< N,N =< _2j,!. 


variable(Vars,Oïd,['VAR*,Num |Old]) --> 
{Var).{char(4, Var. L),ascii(L.M), 
(ascii("_—",M):. 
ascii("A',_a),ascii("Z',._2),_a =< MM =< _7), 
memberchkN(Var, Vars,0,Num)}.!. 


constant(Old,(Inst,X |Old]) --> 
atom__name(X),{Inst = 'CONST ‘| 
{X]},{integer(X),Inst = *INTEGER"}. 


list(Vars Old,New) --> 
ce, *],{New={['CONST" ni{Old]] | 
C'L'}ssimple__term(Vars,[ *EUNCTOR ',cons,2 |Old],N1), 
list__tail(Vars,Ni,New ) . 


sus rss mes meme 


OPEL E 


/* Auxiliary relations */ 


list_tail(Vars,Old,[' POP", *CONST! ,nil |Old}) -=> 
el 

list_uail(Vars,Old,[' POP‘ |New]) -—> 
[| *],simple_term(Vars,Old,New).("]"]. 


list__tail(Vars,Old,New) --> 
(NE 
simple term(Vars,[* FUNCTOR' ,cons,2 |OId),N1}, 
list__tail(Vars,N1,New) . 


% memberchkN 


memberchkN(X,[X 1—],M.N) :- N is M+1.!. 
memberchkN(X,{_—|TI,L,N) :- M is L+1,memberchkN(X,T,M.N). 


% naive reverse 

nrev([X | LO],L) :- 
nrev(L0,L1),concatenate(L1,[X].L). 

nrev([],{ D. 


% concatenate 


concatenate{[ },L.L). 
concatenate([X |L1),L2.[X |L3]) :- concatenate(L! .L2.L3). 


*/ 


"/ 
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Appendix C: Forth Implementation of PVM 


SCR# 2 
\ Primitive Macro Facility 
\ At compile time, copy the code over în-line 
\ May not work for control structures 
\ RUN-SYMBOLS 16 + 4 returns the cfa of EXIT 
: M (COMPILE] ; IMMEDIATE 
DOES> BEGIN OUP à OUP RUN-SYMBOLS 16 + à = NOT 
WHILE , 2+ 
REPEAT 2DROP ;  IMMEDIATE 


LLO 6/16/86 


SCR# 3 

\ Stack Definitions 

\ AARG.STACK is used for argument pointers 
\ pushed by FUNCTOR, popped by POP 


LLO 6/16/86 


CREATE STRUCTURE.STACK 6088 ALLOT \ structure stack 
CREATE CONTROL.STACK 6088 ALLOT \ control stack 
CREATE TRAIL 108Q ALLOT \ trait stack 
CREATE *ARG.STACK 1880 ALLOT \ arg pointer stack 


SCR# 4 

\ Prolog Machine Registers 

\ VALUE is a multiple cfa word 

\ access value by name (ie. X vs. X à) 
\ store value indicated by IS (ie. 2 IS X vs. 2 X 1) 


LLO 6/16/86 


@ VALUE CF \ Current Frame 
© VALUE NF \ Next Frame 
@ VALUE 8F \ 8acktrack Frame 
Q VALUE SS \ Structure Stack 
@ VALUE TS \ Trail Stack 
SCR# 5 

\ Register to Register Operations LLO 6/16/86 
: BFDCF BF IS CF ; \ on backtracking 

: NPDCF NF IS CF ; \ on procedure call 

1 NPDBF NF IS BF ; \ on choice point call 

5 CFDNF CF IS NF ; \ on deterministic return 


SCR# 6 
\ Context Save Operations 
\ IP> and >IP correspond to R> and >R 


LLO 6/16/86 


:M RP>Stack ( -- ) IP> NF EL 

5 BP>Stack ( n -- ) NF 2+ |; ï 
3 CE>Stack € -- ) CF NF4 +! ; 

: BF>Stack ( -- ) BF NF6 +1! ; 

5 SS>Stack ( -- ) SS NF 8 +1; 

5 TS>Stack ( -- ) TS NF 19 +! ; 

SCR# 7 


\ Context Restore Operations LLO 6/16/86 
:M StackNF>RP ( -- ) IP> DROP NF à >IP ;M \ ret from unit 


:M Stack>RP (== ) IP> DROP CF 9 >IP ;M 
5  Stack>BP (€ -- n) CF 2+ à ; 
3  Stack>CF € -- ) CF 4 + Q IS CF H 
5  Stack>BF ( -— ) CF 6 + à IS BF ; 
3  Stack>GS ( -- ) CF 8 +aQ1ISSS ; 
Stack>TS ( -- ) CF 18 + Q IS TS “1 
SCR4 8 
\ Temporaries, Equates, Tags LLO 6/16/86 
\ Temporary Variables 
@ VALUE ARG Argument Pointer 
@ VALUE NVARS cache 
@ VALUE ARITY cache 


arg-match mode flag 
copy mode flag 


VARIABLE ARG.FLG 
VARIABLE COPY.FLG 
\ Equates 
4 CONSTANT BYTES/CELL 
12 CONSTANT BYTES/FRAME 
\ Tags - Here the tag is the high order 16 bits 
1 CONSTANT VAR.TYPE 
2 CONSTANT CONST.TYPE 
3 CONSTANT FUNCT.TYPE 


cc 


SCR# 9 
\ Record Manipulation 
\ Code records 
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: CODE>ARITY C fcode -- n } 2+ Ca ; 
: CODE>NVARS ( fcode -- n ) 3 + Ca ; 
: CODE>PROC { fcode -- addr ) & + ‘ 


\ Procedure Records 
: PROC>CODE ( fclause -- code ) 4 + à ; 
: PROC>ARITY € “clause -- n ) 2+ à ; 


\ procedure > code 
\ procedure > arity 


SCR# 19 

\ Record Manipulation LLO 7/20/86 

\ Structure Records 

: STRUC>FUNCTOR ( ffunctor -- atom ) 4 ; \ func > name 

2 STRUCDARITY . ( “functor -- arity ) + 4 ; \ func > arity 
' 


: STRUC>ARGS € ffunctor -- fargs ) 4 + \ func > args 


\ Term References 

: >TYPE { term.ref -- type ) CH \ ref > type 

: >POINT € term.ref -- term } 2+ 4 : \ ref > pointer 
SCR# 11 


\ Procedure Search LLO 6/16/86 


FIND.PROC ( n pfa -“ fcode | flag ) 


\ Find a procedure of given arity and functor 
\arity = n, functor = pfa 
\ Return FALSE if not found 
\ Return pointer to first code record if found 
BEGIN 
4 DUP \ get pointer to clause records 
IF 2OUP PROC>ARITY = \ compare arity 
IF TRUE ELSE FALSE THEN  \ if = then we're done 
ELSE TRUE THEN \oif Link = @ then we're done 
UNTIL SWAP DROP OUP \ clean stack 
IF PROC>CODE TRUE THEN ; \ convert to code record pointer 
SCR# 12 


\ Variable Manipulation LLO 6/16/86 


: CREATE.UNBOUND.VAR ( addr -- ) 
\ Create an unbound variable at addr 
VAR.TYPE OVER 2! ; \ store 
5 INIT.VARS € = ) 
\ create unbound variables in the control frame 
NVARS ?DUP 
IF NF BYTES/FRAME + 
ARITY BYTES/CELL * + DUP ROT BYTES/CELL * + SWAP 
DO 1 CREATE,.UNBOUND.VAR BYTES/CELL +LOOP THEN ; 
: RESET.VARS ( top.TS bottom.TS -- ) 
\ reset the variables on the trail stack 
2OUP = IF 2DROP ELSE DO I à VAR.TYPE OVER 2! 2 +LOOP THEN ; 


SCR# 13 

\ Saving State 

:M RESET.RP ( “code -- ) 

\ Reset the return stack pointer 
IP> DROP CODE>PROC >IP ;M 

: SAVE.BACKTRACK ( code ++ fcode ) 

\ Save appropriate information at a backtrack point 
oUP 9 DUP BP>Stack \ get Link to next code record 


LLO 6/16/86 


IF 8F>Stack \ if a choice point, save old BF 
NF>BF \ current frame is new backtrack frame 
SS>Stack TS>Stack \ save stack pointers 
THEN ; 
SCRA 14 


\ Adjust Pointer to Next Frame LLO 6/16/86 


: SET.NF ( fcode -- “code ) 
\ reset NF register 
CODE>ARITY BYTES/CELL * BYTES/FRAME + CF + 15 BF ; 
: RESET.NF C -- ) 
\ reset NF pointer 
NF BYTES/FRAME + 
ARITY NVARS + BYTES/CELE * + 
IS NF ; 
5 INIT.NARG ( -- ) 
\ init ARG register 
NF BYTES/FRAME + IS ARG ; 


\ adjust next frame pointer 


SCR# 15 
\ General Backtracking 
BACKTRACK C -- ) 


LLO 6/16/86 


\ Restore context 

\ BF>CF \ make the BF current 

\ Stack>BP DUP RESET.RP \ get pointer to code record 

\ à OUP BP>Stack @= \ get Link to next code record 

\ IF Stack>8F THEN \ reset 8F if this not choice pt 
\ Stack>PF Stack>GS \ restore PF and SS pointers 

\ TS Stack>TS \ restore TS 

\ TS RESET.VARS \ reset vars on the trail 

\ INIT.SARG 

\ SET.NF \ reset NF 


." not implemented ‘ ; 
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SCR# 16 
\ Backtracking on Unification Failure 
: RETRY € -- ) 
\ Restore context 
CF \ get a copy of CF 
BF>CF : \ make the BF current 
Stack>BP DUP RESET.RP \ get pointer to code record 
DUP CODE>NVARS IS NVARS 
à OUP 8P>Stack 0= \ get Link to next code record 
IF Stack>BF THEN \ reset BF if this not choice pt 
Stack>6GS \ restore $S pointer 
TS Stack>TS \ restore TS 
TS RESET.VARS \ reset vars on the trail 
INIT.VARS  INIT.*ARG 
15 CF L \ restore CF 
SCR# 17 
\ Binding Trail ... 1126/86 
\ keep track of variable bindings that may need 
\ to be reset on backtracking 
: DTRAIL € var -- ) 
\ put a variable cell address on the trail 
TS t TS 2+ IS TS ; 
2 DTRAIL? € var -- Avar ) 
\ trail à variable if necessary 
OUP BF U< OVER SS U< OR 
1F OUP >TRAIL THEN ; 
SCR# 18 
... 71/26/86 


\ Creating and Fetching a Binding 


+ BIND C Aterm type “var -- ) 
\ bind a variable 


>TRAIL? 2! ; \ smash variable celt 


: >ULT.BINOING € fterm@ -- fterml ) 
\ completely dereference a variable binding 


BEGIN 


DUP >TYPE VAR.TYPE = \ check for variable 
1F DUP >POINT OVER = \ check if unbound var 
IF TRUE ELSE >POINT FALSE THEN \ chase pointer if bound 
ELSE TRUE THEN \ not variable then done 
UNTIL ; 
SCR# 19 
\ Save and Restore Arguments LLO 6/16/86 
: POP.ARG € -- term ) 
\ pop an argument off control/structure stack 
\ Leave term pointer on data stack 


ARG DUP BYTES/CELL + IS ARG ; 

PUSH.ARG ( term type -— ) 

push an argument onto the control/structure stack 
ARG 2! ARG BYTES/CELL + IS ARG ; 


SCR4 2Q 


\ 
N 


Save and Restore Arg Pointers .… 71/26/86 


PUSH.*ARG ( addr -- ) 
save then reset argument pointer 
2 FARG.STACK ARG OVER 9 ! +! 
POP.*ARG € -— ) 

restore argument pointer 
AARG.STACK 2 OVER +! 


IS ARG ; 


a 4 IS ARG ; 


ARG&TYPE ( -- fterm type } 
pop an argument, dereference it if necessary, return with type 


POP.ARG >ULT.BINDING DUP >TYPE ; 


SCR# 21 


core 


Unify Variable (match mode) LLO 7/20/86 


see VAR, screen 33 

UNIFY.VAR ( fvar -- flag ) 

unify the variable with an argument 

ARG&TYPE VAR.TYPE = \ get the argument 

IF 2DUP U> IF SWAP THEN 2+ ! \ bind variables 

ELSE 24 ROT BINO THEN TRUE ; \ bind it to the variable 


SCR# 22 


\ 
\ 


\ 


Unify Constant ... 71/22/86 


see VAR, screen 33 
UNIFY.CONST € fconst -- flag ) 


unify the constant with an argument 

ARG&TYPE CASE \ get the argument 
VAR.TYPE 

OF >R 2a R> BIND TRUE ENDOF 

CONST.TYPE 


\ compare pointers 
\ succeed if pointers match 


OF >POINT SWAP >POINT = 
IF TRUE ELSE FALSE THEN 


SCR# 27 

Copy a Structure (copy mode) 

see FUNCTOR, screen 35 

MATCH.VAR ( arity fatom “var -- flag ) 
Builds a structure record and binds it to the variable 

The structure args are built by the remainder of the head code 
COPY.FLG ON \ copy variable from NF not CF 
SS FUNCT.TYPE ROT BIND \ bind the variable to funct rec 
COPY. FUNCT TRUE ; \ set to copy functor, return T 


LLO 7/20/86 


cru ce 


SCR# 28 

Prolog Virtual Machine Instructions 

Note: VAR takes a byte offset from the start of a frame 
(base address) to compute the address of the variable. 
ARG.FLG = G, COPY.FLG = @ indicates match mode 

ARG.FLG not @, COPY.FLG = @ indicates arg mode 

ARG.FLG not 8, COPY.FLG not @ indicates copy mode 

in copy mode, nesting is handled by decrementing ARG.FLG 
at the start of a structure, and incrementing on exit 
(via POP). 

CoPY.FLG is used to indicate which frame pointer (CF or NF) 
should be used for the base address of the variable. 


rétros 


SCR# 29 

\ Prolog Machine Instruction 

+ CALL On cfa -- ) 

\ Call a Prolog procedure 
ARG.FLG OFF \ 
FIND.PROC \ 

IF DUP CODE>NVARS IS NVARS \ 

\ 
\ 


CALL LLO 6/16/86 


swith mode to ‘match! 

get pointer to procedure rec 
cache NVARS 

cache ARITY 

init vars and set up stack 


DUP CODE>ARITY 1S ARITY 
INIT.VARS RP>Stack 
SAVE.BACKTRACK 


INIT.ARG \ set argument pointer 
4 + >IP EXIT \ pass control to procedure 
ELSE BACKTRACK THEN n \ backtrack if no procedure 
SCR# 30 


\ Prolog Machine Instruction ENTER LLO 6/16/86 
5 ENTER (€ -- ) 


\ Enter a procedure and begin execution of the body 


ARG.FLG ON \ switch mode to “arg' 
COPY.FLG OFF 
CP>Stack \ adjust frame pointers 
NF>CF RESET.NF \ adjust next frame pointer 
INIT.SARG ; \ set arg pointer for next call 
SCR# 23 
\ Unify Structure LLO 7/28/86 
\ see VAR, screen 33 
5: UNIFY.FUNCT € Afunctor == flag ) 
\unify the functor with an argument 
ARG&TYPE CASE \ get the argument 
VAR.TYPE OF >R 29 R> BIND TRUE ENDOF 
FUNCT.TYPE OF ." Not Implemented ‘ TRUE ENDOF 
SWAP FALSE ENDCASE ; 
SCR# 24 
\ Build a Term Reference (arg mode) LLO 7/20/86 
5 REF>ARG € term -- ) 
\ builds an argument from a term reference 
DUP >TYPE VAR.TYPE = \ check for variable 
IF VAR.TYPE \ make a new variable 
ELSE 2à THEN PUSH.ARG ; \ otherwise copy 
5 VARDARG  n -- ) 
\ builds an argument fram a variable reference 
COPY.FLG à 
IF NF ELSE CF THEN + \ get address of variable 
DULT.BINDING REF>ARG ; \ get binding for argument 
SCR# 25 
\ Build a Structure Record (copy, arg modes) LLO 7/28/86 
: COPY.FUNCT € arity atom -- ) 
\ build a functor record on the structure stack 
-1 ARG.FLG +! \ increment the counter 
OVER BYTES/CELL * & + \ compute # of bytes in record 
$SS DUP ROT + IS SS \ allocate space 
DUP 4 +  PUSH.*ARG \ reset arg pointer for rest 
ds \ fill head of functor record 
SCR# 26 
\ Match a Structure (match mode) tLO 7/20/86 
\ see FUNCTOR, screen 35 
: MATCH.EUNCT € arity “atom “term -- flag ) 
\ match functor with an argument 
\ ARG is reset if functor (name ) and arity match 


ENDOF 
SWAP FALSE ENDCASE d 


\ nothing else recognized 
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\ remainder of match is handled by code in clause head 


>POINT \ get pointer to record 
DUP STRUC>FUNCTOR ROT = - \ check functor match 
IF DUP STRUC>ARITY ROT = \ check arity match 


IF STRUC>ARGS PUSH.*ARG TRUE \ 
ELSE OROP FALSE THEN 
ELSE 2DROP FALSE THEN ; \ 


reset arg pointer, return T 


return fatse if no match 


mm mm 


SCR# 31 
\ Prolog Machine Instruction ENTER LLO 6/16/86 
z RETURN ( -- ) 
\ Return from à procedure 
ARG.FLG à \ check mode 


IF Stack>RP CF BF U> 


IF CF>NF THEN “\ rectaim if not backtrack pnt 
Stack>CF \ adjust frame pointers 
ELSE StackNF>RP BF NF = \ if ret from unit clause 
1F CF>Stack \ save parent frame pointer 
RESET.NF \ reset frame pointer 
THEN 
THEN ARG.FLG ON \ turn off matcher 
INIT.NARG ; \ set arg pointer for next call 
SCR# 32 


\ Prolog Machine Instruction CONST LLO 6/16/86 


: CONST ( “atom -- ) 
\ match or copy a constant 
ARG.FLG à 
IF CONST.TYPE PUSH.ARG 
ELSE ARG&TYPE VAR.TYPE = 
IF CONST.TYPE SWAP BIND 
ELSE >POINT = NOT 
IF IP> DROP NF BF = 


push arg in arg mode 
get first argument 

if variable, bind it 
otherwise must be EQ 


ce 


IF RETRY \ retry if new call 
ELSE BACKTRACK THEN \ backtrack if not 
THEN 
THEN \'else continue 
THEN ; 
SCR# 33 
\ Prolog Machine Instruction VAR 
: VAR (nn --) 
ARG.FLG à 
IF  VAR>ARG \ get binding for argument 


ELSE NF + >ULT.BINOING \ get the variable bindings 

DUP >TYPE CASE \ case analysis on type 
VAR.TYPE OF UNIFY.VAR ENDOF 

CONST.TYPE OF UNIFY.CONST ENOOF 

FUNCT.TYPE OF UNIFY.FUNCT ENDOF 


ENDCASE NOT 
IF R> DROP NF BF = Vif match not successful 
IF RETRY \ retry 
ELSE BACKTRACK THEN \ or backtrack 
THEN 
THEN ; \ build an argument 
SCR# 41 
\initialization words for test routines LLO 6/16/86 


3 INIT.NARG. STACK 

\' init argument pointer stack 
AARG,STACK DUP 2+ SWAP ! ; 

5 INIT.STACKS 

\initialize stacks prior to CALL 
STRUCTURE.STACK IS SS 
TRAIL IS TS 
CONTROL.STACK IS CF 
CF IS NF @ IS BF 
ARG.FLG OFF COPY.FLG OFF 
CONTROL.STACK 3088 Q FILL 

: TEST INIT.STACKS CR ; 


INIT.NARG.STACK ; 


SCR# 42 
\ Test Procedures 
\ Create Dictionary Entries for all Test Words 


CREATE APPEND Q , 
CREATE cons 8, 
CREATE art 8, 


CREÂTE REV 8, 
CREATE NIL Q@, 


CREATE bob 8@, CREATE fred @ , 


SCR# 43 
\ APPEND and REV (Note arguments of VAR) 
1 3 APPEND :ASSERTZ NIL CONST 24 VAR 24 VAR RETURN ;ASSERT 
4 3 APPEND :ASSERTZ 2 cons FUNCTOR 24 VAR 28 VAR POP 
32 VAR 
2 cons FUNCTOR 24 VAR 36 VAR POP 
ENTER 28 VAR 32 VAR 36 VAR 3 APPEND CALL 
RETURN  ; ASSERT 


à 2 REV TASSERTZ NIL CONST NIL CONST RETURN :ASSERT 
4 2 REV SASSERTZ 2 cons FUNCTOR 2@ VAR 24 VAR POP 28 VAR 
ENTER 24 VAR 32 VAR 2 REV CALL 
32 VAR 


2 cons FUNCTOR 20 VAR NIL CONST POP 28 VAR 
3 APPEND CALL 
RETURN ; ASSERT 


SCR# 44 
\ Test of Append 
\ use: TEST @ TEST CALL 
\ check result with CONTROL.STACK 12 + PRINT.TERM 
CREATE TESTT Q 
\ append([bob,fred],[art],L). 
1 @ TEST1 :ASSERTZ ENTER 
2 cons FUNCTOR bob CONST 
2 cons FUNCTOR fred CONST NIL CONST POP POP 


SCRA 38 


5 PRINT.FUNCT € term -- ) 
\print a structure 
POINT OUP 9 BODY> .ID ASCII ( EMIT 
2+ DUP 2+ SWAP à BYTES/CELL + OVER + SWAP & 
DO I PRINT.TERM BYTES/CELL +LOOP ASCII ) EMIT : 
1 <PRINT.TERM> ( fterm -- ) 
\ print a Prolog term 
DULT.BINDING DUP >TYPE CASE 
CONST.TYPE OF PRINT.CONST  ENDOF 
VAR.TYPE OF PRINT.VAR ENDOF 
FUNCT.TYPE OF PRINT.FUNCT ENDOF ENDCASE ; 
" <PRINT.TERM> IS PRINT.TERM 


SCR# 39 
Auxiliary Words 
ICODE.DATA ( nvars arity -- ) 
pack the number of variables (nvars) and arity 
then enclose 
256 * +, ; \arity is in high order byte 
5 \LINK ( start.addr -- end.addr ) 
\ traverse Links to end 
BEGIN DUP à IF à FALSE ELSE TRUE THEN UNTIL 5 


LLO 6/16/86 


ce 


SCR# 40 
\ PVM to Forth Compiler 
TASSERTZ ( nvars arity pred -- ) 
\ add a clause to the Prolog data base 
2OUP FIND.PROC find proc record 
IF \LINK if found, get last clause rec 
HERE SWAP 1 0, install Links 
DROP !CODE.DATA install nvars, arity 
ELSE \LINK if not found get Last proc 
HERE SWAP ! Q, install Links 
DUP , HERE 2+, install arity and Link to clause 
@ , !CODE.DATA set clause Link 
THEN STATE ON ; compile remainder of input 
t JASSERT ( -- ) 
STATE OFF ; IMMEDIATE 


LLO 6/16/86 


<écccrcr 


A 


turn off compilation 


SCRA 34 
\ Prolog Machine Instruction POP LLO 7/20/86 
: POP € -- ) 
\ pop from a FUNCTOR 

POP .SARG 

ARG.FLG à 

IF 1 ARG.FLG +! THEN L 


restore argument pointer 
Look for "’arg'" mode 
decrement counter 


eee 


SCR# 35 
\ Prolog Machine Instruction FUNCTOR 
5 FUNCTOR ( arity ‘atom -- ) 
\ Compiler object indicating a structure 
ARG.FLG à 
1F SS FUNCT.TYPE PUSH.ARG COPY.FUNCT 
ELSE ARG&TYPE CASE 
VAR.TYPE OF MATCH.VAR ENDOF 
FUNCT.TYPE OF MATCH.FUNCT ENDOF 
FALSE SWAP ENDCASE 
NOT IF R> DROP NF BF = 
IF RETRY ELSE BACKTRACK THEN 
THEN 
THEN ; 


LLO 7/24/86 


SCR# 36 
\ Support Routines 


\ 
\ ASSERTZ is the PVM to Forth Compiler. 

\ It requires as parameters the number of variables 

\ in the clause, the arity of the clause, and the pfa 

\ of the clause functor. | ‘ 

\ If the PVM word set were extended, with different words 

\ for instructions in the head and body, much of the compilation 
\ to the extended word set could be handled by ASSERTZ, since 

\ it can tell the difference between the head and body of a 

: clause. Thus the Prolog-PvM compiler could stay simple, 


SCR# 37 
\ Prolog Print Words 
DEFER PRINT.TERM 
: PRINT.CONST ( const -- ) 
\ print à constant 
>POINT BOOY> .1D ; 
? PRINT.VAR ( fvar -- ) 
\ print a variable 
>POINT BASE à >R 
ASCII __ EMIT HEX U. R> BASE ! ; 


2 cons FUNCTOR art  CONST NIL CONST POP “ 5 A 
12 VAR 3 APPEND CALL RETURN :ASSERT Suite à Fa au M A LE A3 
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PROJET F32 
SPECIFICATION PRÉLIMINAIRE 
par Paul ORTAIS 


Contact: 3615 SAM*JEDI Bal FF32. 


1. POINT DE DEPART 
Le projet F32 est issu d'une triple rencontre: 
d'une classe nouvelle de processeurs 


“machines de piles", particulièrement 
actuet des machines de piles 


- L'émergence 
universels, dits 
simples et puissants. L'état 
mérite des améliorations. 


- Le développement du Langage FORTH, dédié à La 
manipulation desdites piles, à l'exécution duquel ces 
machines sont dédiées. Le potentiel de ce Langage mérite 
néanmoins d'étre mis en valeur. 


réalisation de 
d'entreprendre 
qu'il nous 


chips VLSI à notre 
à peu de risque une 
reste maintenant à 


- Les 
disposition 
implémentation 
décrire. 


moyens de 
permettent 
performante 


on verra à La Lecture de ce premier document que La voie de 
recherche n'est pas univoque, mais ramifiée; on découvre 
plutôt un ensemble de directions possibles, parmi Lesquelles 
it faut trancher. 


C'est pourquai, d’une part F32 nécessite une constitution 
d'équipe, d'autre part cette spécification doit être 
comprise comme une proposition initiale, un moyen 
d'initialisation. 


Trois axes de réflexion sont développés ici: 


- Le VLSI par lui-même, dont ta réalisation est L'aspect Le 
plus simple du projet, 


- L'orientation du processeur vers La manipulation des 
bases de données, et pourquoi ceci constitue non un Luxe 
d'implémentation, mais un passage obligé vers un débouché du 
produit, 


implémentation minimale, 
Le processeur en observant 


- ce que devrait être une 
permettant ensuite de finaliser 
Le comportement de ce noyau. 


1.1 Processeur. 


A L'origine, Le NC4016 fût développé en 85 par des fans du 


Forth voulant créer une machine-langage spécifique. Le 
résultat, malgré un succès commercial Limité, fût un 
processeur universel de très grande puissance et très 


simple. Son apport tient à L'utilisation de mémoires 
physiques distinctes pour implémenter Les espaces logiques 
de pile de donnée et pile de retour. 


Ces espaces existent dans tout Langage, mais ils y sont 
presque toujours implicites et sous-entendus. Dans Le FORTH, 
Leur manipulation explicite a conduit naturellement à Leur 
prise en cansidération dès Le design du NC4016. 


IL sapparût alors que, tout Le changement de contexte 
devenant un opérateur de base, Le processeur est déchargé du 
principal goulot d'étranglement des pP modernes. C'est ce 
problème qui est résolu, avec beaucoup moins d'élégance, par 
toute La génération des RISCS actuels. 


De même, La pile de paramètres fournit un second bus de 
données, Le gain résultant est analogue à ce qui se fait en 
modèle de Harvard. 


Par extension, on voit que La puissance est (beaucoup) une 
question de nombre de pins disponibles. Cependant, 
L'accroissement est exploitable aisément par une machine de 
pite, et très peu autrement... 


Un nouvel avatar du NC4016, Le RTX2000 d'Harris, reprend te 
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même noyau en L'habillant de périphériques qui en font un 
composant puissant, qui fera probablement une brillante 
carrière dans Le "temps réel". Néanmoins, il n'apporte rien 


de neuf conceptuellement dans Le cadre de La présente 
étude. 

1.2 Langage: 
qui dit processeur dit Langage. Bien que rien ne doive en 


principe forcer tel ou tel Langage sur un processeur, il y 
ä toujours de tels appariements, ne serait-ce 
qu'historiquement. La machine de pile 5e prête bien au 
FORTH, mais on verra que l'implémentation rigoureuse du 
Langage conduit à des pertes d'efficacité. 


Le € comme tous Les Langages procéduraux tombe dans une 
classe qui justifie L'écriture de compilateurs classiques, 
Laquelle est hors sujet à ce stade du projet. 


1.2.1 LISP 


IL faut étudier Les mécanismes de LISP pour 
L'approche base de données du F32. LISP est 


saisir 
pertinent puur 


L'approche ouverte des structures qu'il fournit aux 
manipulations de données. 

Cependant, LISP est Lent. Dans F32, à chaque fois qu'il 
faut choisir entre La puissance et un autre aspect, c'est 


La puissance qui doit l'emporter. Et La puissance, c'est Le 
FORTH. 


1.2.2 FORTH 


Conçu à L'origine par Chartes MOORE Comme un macro-Langage 
de gestion de fichiers à usage personnel, comparable au DCL 
de DEC, Le FORTH est caractérisé par Sa constitution 
incrémentale. 


Pour y parvenir de façon 
univers est une vertu 
postfixée qui permet 
Parser de commande. 


simple la simplicité dans cet 
majeure), il utilise une notation 
une syntaxe incrémentale exempte de 


Secondement, Le Langage est bâti sur un "dictionnaire", 
Liste de procédures (mots) ou chaque nouvelle entrée 
appelle Les procédures précédemment définies. 


IL n'y a qu'un seul type reconnu, Le mot, Il vaudrait mivu 
parler d'objet, bien que cette notion soit postérieure au 
FORTH. Le mot désigne autant Les variables, constantes, 
pointeurs, procédures et structures. 


Le moteur interne du Langage est Le plus simple qui soit: 
= incrémenter Le pointeur de programme d'un mot courant, 
- si on trouve une valeur, L'empiter, 

- si on trouve un mot du vocabulaire, L'exécuter, 
- boucler. 


Le point intéressant du Langage est l'extrême simplirité du 
noyau, ce qui permet de commencer l'utilisation du 


processeur avec UN investissement Logiciel vraiment 
minimal. C'est ce qu'il nous faut, 
Dans Le cadre de notre propos, disons que FORTH est un 


Langage en kit, Livré très simple, avec Lequel on peut tout 
faire, ou bien on doit tout faire, suivant que L'on est 
aptimiste ou pessimiste. 


D'un abord plutôt rébarbatif au départ, sa grande 
simplicité permet de L'apprécier à55ez vite. Bien que F92 
ne soit pas un projet dédié au FORTH, La compréhension du 
Langage est vivement recommandée. 


Pour consoler Le lecteur, La Littérature est disponible et 
claire; L'environnement est accessible et gratuit; enfin La 
communauté des utilisateurs de FORTH est active, ouverte et 
compétente en France. 


Quoiqu'il en sait, La connaissance pratique 
impérative si L'on veut optimiser Le design. 


du Langage est 


Pour finir, il est tout à fait possible que La recherche de 
structuration du FORTH, menée avec F32, n'aboutisse pas, ou 
bien soit nettement plus Longue que Le développement VLSI. 


se Concentrer sur une recherche de 
avantages connus de La 


Dans Ce cas, il faut 
puissance pure, exploitant Les 
combinaison FORTH-machiine de pile. 


1.3 Environnements lugiciels. 


A moins de remaniements très sérieux, Le FORTH ne sera pes 
Le Langage de chuix pour de tels envirannements. Dans sa 
forme actuglle, il à une forme trop primitive pour autoriser 
Les trés grosses applications courantes dans ce domaine. 
Néanmuins, il faut remarquer que: 


- Là compacité propre au FORTH est une résistance à 
l'inflation du code, phénomene par ailleurs courant et qui 
indique plutôt uñe mauvaise comprehensiun des traitements et 
cContrarie une exécution uptimele. En particulier, Le système 
devient essentiellement dépendant des accès disque pour ce 


qu'un Forth exécuterait surtout en RAM. La meilleure 
compacité du Fort cruil avec La taille de L'application. Le 
nuyau du Langage est Si cumpact qu'il tient entièrement à 


L'intérieur d'un jeu d'instruction. 


- FORTH est La seule approche permettant une vraie 
compilation en temps réel. 

Structurer Le noyau Forth en noyau de base de données 

hiérarchisée semble relativement simplé. Voir aussi 


l'implémentation nommée Le-Furth. 


n'est pas Le 
meilleur moyen 


Langage cible finalement 
de valider Le design, 


- même si Forth 
préféré, il reste Le 
pour sa simplicité. 


1.4 Usage des processeurs. 


Ces dernière annèes, Les capacités d'intégration disponibles 
autorisent La réalisation en 5emi-custom de CPU 32 bits. 
Parallèlement, ce format tend à se vulgariser, IL est donc 
naturel de se demander si une machine de pile en 32 bits est 
envisageable. Les seules instances éctuelles sont en 16 bits 
ENC4016/RTX2000). Leur niveau de performance est comparable 
aux meilleurs CPU 32 bits actuels, Que peut-on attendre en 
32 Laits? 


dès à présent que ce chip sera nettement plus 
aisé à mettre en oeuvre que ses analogues. On doit donc 
privilégier Les champs d'applications de mise en oeuvre 
Cuuteuse en temps, comme Le contrôle temps réel et Le génie 
tugiciel: 


IL apparait 


- dans Le premier cas on bénéficie de La transparence de La 
machine virtuelle pour faciliter La mise au point matérielle 
des systèines. 


* dans Le second, La machine de pile apporte une exécution 
plus rapide des chainages, el La pussibilité d'un traçage 
Matériel du procédé par ubservation des piles, ce qui n'est 
pas envisageable sur une machine classique. 


Tout d'abord, ce format implique un Large espace adressable. 
Les applications exptoiteront des bases de données, que ce 
suit én IA, CAO, génie Logiciel, gestion de base, imagerie, 
BG sx 


On doit se demander si Le 
bits Se retrouvera en 32. 


gain en puissance observé en 16 


C'est un objectif majeur de F32 de pousser 
chip vers La manipulation de bases de données. 


l'avantage du 


11. DEVELOPPEMENT. 


Une grande part est encore spécutative, 
fixer Les grandes Lignes suivantes: 


néanmoins on peut 


La structure du NC4016 doit étre 
s'agit Là de La référence un La 
différer nettement de ce 
tüujuurs en vue. 


bien maitrisée, il 
matière. F32 devrait 
modèle, qui doit cependant être 


liitidlement, un bätira une Stiucture minimale, c'est à dire 
qu'on évitera Les optimisations coûteuses en temps de 
développement. 


L'ubjectif est d'abord de creer une machine de base robuste 


et de structure régulière. On vérifiera Le gain de ce 
premier stade par l'exécution de benchmarks classiques, qui 


constituent un jeu de tests suffisants et mesurent 
précisément Les qualités du design. 
La partie noble du projet concerne L'unité de gestion de 


au cure, celui-ci devant être vu 
brute au service de cette 


donnée associée 
apportant La puissance 


base de 
comme 
unité. 


11.1 Machine de pile. 
ON aura compris que F32 est une machine de pile... 
Physiquement, l'unité centrale utilise plusieurs voies de 
données externes vers Les espaces suivants: 

- mémoire principale, comme tout processeur, 


- pile de données, ou pile Paramètre, stockant Les données 
Locales des procédures en cours. 


- pile de retour, gérant Les redirections 
depuis Les bouctes jusqu'aux exceptions. 


du processeur, 


- pile annexe, si matérielLement elle est possible. 


L'accès à ces espaces est soit 
Souvent Le cas de La mémoire principale, ou masqué comme 
presque toujours pour La pile de retour. Cependant, dans 
tous Les cas, on conserve une possibilité d'accès 
explicite. 


explicite, comme c'est 


11.2 Langage. 


Comme on l'a vu, Le Langage qui aura (a 
niveau de Ll'émulation sera FORTH. Au niveau simulation de 
base, Se sera sûrement Les commandes du simulateur Logique 
des outils, mais il est bon que ce stade soit minimisé. 


préférence au 


L'idéal est un interfaçage 
pour L'émulation. Cet 


FORTH générant du source F32 
interfaçage est déjà quasiment 
opérationnel, aux opcodes près; il est dû à JEDI, Le 
"ERench Forth Interest Group".  Crt interfare permet 
d'émuler F32 avant design Sur quasiment tous Les micro- 
ordinateurs actuels, 


Pour partitionner, disons que L'émulateur FORTH permettra 
de simuler F32 en partant du niveau où Le simulateur 
commence à saturer, à partir de quelques centaines 


d'instructions. 


11.3 Opérateurs de base de données. 


L'idèe de base est que La présentation naturelle de 
l'univers est hiérarchisée et non linéaire (-Cartésienne), 
ce dont tout Le monde convient aisément; que Ladite 
présentation est La même POUT Un process quelconque, en 
particulier pour toute application exécutée par un 
processeur quel qu'il soit 


Il se trouve que dans des cas simples, on peut assimiler 
Les objets manipulés à des structures Simples telles que 
des tableaux, des variables et du texte. Le cas n'est 
particulier qu'eñ apparence: en réalité, L'arbre est ici 
réduit à ses composants terminaux, qui seront toujours de 
tels objets élémentaires. Même dans ce Cas, une bonne part 
de l'application consiste à créer une Structure pour 
manipuler Les objets en question. 


Or, si L'on avait disposé au départ d'un outil de 
description hiérarchisé, ce qui est, autrement, Long à 
décrire et masqué, il aurait été immédiat et explicite, Par 
exemple, sous cette pproche, il y à peu de différence entre 
Les descripteurs d'une application à menus déroulants, un 
tableur, Le simulateur d'un design électronique ou 
mécanique, etc... 
L'ubstacle principal au développement du Lagiciel réside 
dans Le masquage des structures implicites, qui rend La 
description des spplications perceptible à eur seul 
auteur, et souvent pour un temps Limité. Le développement 
du matériel s’est bâti sur des Structures objectives, c'est 
à dire admises de tous; un design est accessible à tous, et 
Le reinvestissement des efforts possibles. 
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Pour développer des appticalions d'appréhension délicate, il 
a fallu créer des Langages dits d'intelligence artificielte, 
destinés à décrire explicitement Les structures plus 
Lumptexes. 


En particulier La distinction entre Les structures 
manipulées et celles du Langage s'estompent et parfois 
disparaissent (LISP). 


Ceci dit, t'exécution de Ces Langages reste lourde, c'est à 
dire Lente. On ÿ pallie en construisant des processeurs 
spécifiques, mais aucun jusqu'à présent n'a pu quitter Sa 
niche. 


La raison semble étre que La restriction à un Langage donné 
ôte à un prucesseur Là possibilité de durer” sur Le marché. 


En conséquence, La fonction de gestion de base de donnée 
duit etre cäblée, mais sur Une machine d'usage général. 


Dans La pratique que doit faire Le chip? Il doit avoir Le 
sens de L'orientation à L'intérieur d'un graphe. Par 
exemple, si L'on décrit l'espace de L'application comme un 
arbre, au moyen d'une Liste de type LISP, F32 possèdera deux 
mudes d'adressage spéciaux: 


- absotu, avec au départ un pointeur de racine d'arbre et 
un pointeur de path Cchemin) et Le processeur trouve dans La 
Liste L'objet pointé par Path; il empile aussi Les 
paramètres utiles du puint courant, à savoir Les pointeurs 
père, sous-cellules, type de Liste courante, type d'objet 
atteint, etc... 


. relatif, Le point de départ n'étant pas forcément La 
racine. L'intérèt est ici La vitesse, F32 pouvant évaluer en 
pipe Line une Liste au débit (OMR) d'un mot de 32 bits par 
go ou 60 n5. On épluche uñ arbre de quelques milliers de 
cellules dans Le temps queë met un 80286 à changer de 
contexte. 


on est bien obligé dE privilégier une structure à priori 
pour Les Listes de base, et donc faire Le pari de Leur 
fécondité comme support d'usage général, 


L'option consiste à faire des Listes de pointeurs de 32 
bits, alignés sur un octet faible multiple de 4, pour 
acquérir La Liste avec Le plus fort débit. Le digit de puids 
furt est un Tag décrivant La fonction dans La Liste du 
pointeur. 


Les Tag de base sunt au numbre de trois seulement: 


- descente d'un niveau dans La hiérarchie "(" en édition 
montée d'un Niveëu ")" 


- incrément de rang de Liste ; 


L'éditeur d'arbre fait apparaître ...nnn1, nnn2, 
nnn3taaa,bh))... ce qui équivaut à dire qu’il y a dans 
L'espace de L'application une Liste contenant successivement 
Les objets en Cann1} puis en Cnnn2] puis Cnnn31. On vait que 
L'objet en  Ennn31 est fuit de veux pointés par aa4 et bb. 
Pour savoir ce qu'il y a en nnn3 el pourquoi on ÿ à besoin 
de ceux qui est pointé par äaa et bb, je pense que Le mieux 
est d'aller voir sur plate. Par bonheur, F32, arrivé Là, se 
retrouve pointé sur nnn3. 


Gi Le mécanisme est assez pratique et rapide, Le programmeur 
sera tenté de décrire Le maximum de $0n application en 
n'utilisant que L'éditeur d'arbre (Le BROWSER) et ces modes 
d'adressage symbotique. 


La plus grande ambition de F32 est Là, et aussi de créer un 
noyau FORTH compatible avec CE mécanisme de recherche. 


11.4 Système d'exploitation. 


IL est vrai qu'un processeur est d'usage général s'il peut 
s'accommoder de tout envirennement, moyennant L'écriture des 
cumpilateurs raisonnablement complexes. 


Il faut dire néanmoins que Le produit est mort-né s'il ne 
“tourne" pas Sous un Systeme d'exploitation répandu à 5a 
sortie. Harris en fait actuellement L'amère expérience avec 
Le RTX2000 qui à été diffusé six mois avant son Langage C. 
L'interface très primitif des premiers échantillons, un 
vieux Forth assez obscur, a déjà rebuté plus d'un client 
potentiel. 
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Un premier refus du marché est extrêmement difficile à 
remonter. Dans Le cas de RIX2000, il eût fallu délivrer un 
interface très collé à MS-D05, ne divergeant qu'au niveau 
désire 


de tL''assembleur à moins que L'utilisateur ne 
utiliser FORTH directement, 


11.4.1 UNIX. 


IL s'agit de ne pas faire La même erreur avec F32. Même si 
Le core doit étre -incrusté dans des ASIC, ce seru bien une 
machine de pile à programmer. Le système d'exploitation 
évident est UNIX. Qui peut nous porter un FORTH 32 bits sur 


UNIX? 


un tel développement devrait démarrer en parallèle avec 
L'implémentation hard. Les station Apollo 


particulièrement indiquées pour cela. 


Suite de À PER 413 


SCR4 45 
\ Test of REV 
\ use: TEST @ TEST2 CALL 
\ check result with CONTROL.STACK 12 + PRINT.TERM 
CREATE TEST2 @ , 
\ rev(fbob,art,fred],L). 
1 O TEST2 :ASSERTZ ENTER 
à cons FUNCTOR bob CONST 
2 cons FUNCTOR art  CONST 
2 cons FUNCTOR fred CONST NIL CONST 
POP POP POP 
12 VAR 2 REV CALL RETURN ;ASSERT 


sont 


DRAGON 


DRAGON 


von Christoph Krinninger 


ieses Programm zeichnet den so- 
Diner Harter-Hightway- 

Drachen. Es benutzt die hohe 
Auflôsung des Atari ST und die 
hohe Geschwindigkeit des 
volksFORTH und bietet während 
des Aufbaus eine ganz besondere 
Asthetik. 


Für den Aufbau wird eine soge- 
nannte Turtle verwendet, dieser 
muB nur eine Drehrichtung und 
eine Zeichenlänge mitgeteilt werden 
und ist dadurch eine besonders un- 
kompliziertes Zeichenwerkzeug. Für 
die Umsetzung dieser Vektorgrafik 
in die Bildschirmkoordinaten wer- 
den elementare  trigonometrische 
Funktionen wie Sinus und Cosinus 
benôtigt. Wenn keine besonders 
hohe Auflüsung benôtigt wird, so 
liest man diese Werte am ein- 
fachsten in einer Tabelle ab, wobei 
man nicht unbedingt für jeden 
Winkel zwischen 0 und 3460 Grad 
cinen Wert abspeichern muB. Es 
genügt nach den bekannten Umfor- 
mungsformeln durchaus der Bereich 
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zwischen O0 und 90 Grad. Ferner 
kann man weiteren Speicherplatz 


einsparen, indem man nur die 
Werte für gerade Winkel 
abspeichert und für  ungerade 


Winkel linear extrapoliert. 


Die DRAGON-Kurve besteht aus 
rechtwinkligen Linien, die mit Hilfe 
der Rekursion in immer kleinere 
Abschnitte geteilt werden. Das Pro- 
gramm wird mit N DCURVE gestar- 
tet, N ist die Ordnungszahl. Mit der 
Auflôsung des Atari ST kann man 
maximal einen Drachen 16. 
Ordnung zeichnen. Die Rechenzeit 
beträgt ca. 4 Minuten. Mit der 
Variablen STEPSIZE kann man die 
GrôBe der Grafik verändern. 


Diese Kolumne soll zu einer 
ständigen Einrichtung werden. Wer 
also eine FORTH-Grafk erstellt 
hat, die für das Titelbild geeignet 
ist, môge einen kurzen Artikel 
schreiben und diesen an die Redak- 
tion senden. 


Beispiel 1 


Stichworte: 


» Fraktale, 
» Turtle-Grafik, 
» Trigonometrie 


Noch ein paar Worte zum 
Artikel in der letzten Ausgabe: 


Durch einige Besonderheiten des 
Ventura Publisher sind bei diesem 
Artikel alle ">" und "<" un- 
terdrückt worden. Dies ist be- 
sonders bei FORTH-Worten wie 
">R","R>" oder "->" verheerend. 
Wer am korrekten Sourcecode oder 
Artikel interessiert ist, kann sich mit 
mir über das FORTH-Büro in Ver- 
bindung setzen. 


Bibliographie: 

1. DRAGON, Bruce R. 
Land, BYTE 04/86, 
S. 137 ff 

2. SIN, COS und 3D, Frank 
Schmidt, c’t 10/85, 
S. 87ff 

3. The Fractal Geometry of 
Nature, 


Mandelbrot B. B., 
Freeman 1982, 5. 
GGfF 


ITEFDL et FORTH-Magazin Vierte Dimension’ 


Screen # 1 


\ Loadscreen 21feb88 ck 
Onlytorth  gem also 

\needs it cit; 

forget it tit; 

\needs pline include vdi.scr 


28thru 


Screen # 2 


\ Sinustabelle 21feb88 ck 


decimal 
Create sintab 


0, 349, 698, 1045, 1392, 1736, 2079, 2419, 
2765, 3090, 3420, 3746, 4067, 4384, 4695, 5000, 
5299, 5592, 5878, 6157, 6428, 6691, 6947, 7193, 
7431, 7660, 7880, 8090, 8290, 8480, 8660, 8829, 
8988, 9135, 9272, 9397, 9511, 9613, 9703, 9781, 
9848, 9903, 9945, 9976, 9994, 10000 , 


Screen # 3 


\ Sinusberechnung 21feb88 ck 
: ((sin (ni-n2) 

dup dup 2/ 2* = 

IF 

sintab + @ 

ELSE 

sintab + 1- dup @ swap 2+ @ + 2/ 

THEN; 


: (sin (ni-n2) 

dup 180 > IF 180-true ELSE false THEN 
swap dup 90 > IF negate 180 + THEN 
{{sin - 

swap IF negate THEN ; 


FORTH-Magazin Vierte Dimension’ et JE D! 


DRAGON 


LE 0 RE RE pee 


Screen # 10 


21feb88 ck 


Kleiner Trick, um das Programm wiederhoit hintereinander laden 
zu kônnen. 


Screen # 11 
21feb88 ck 
SINTAB Tabelle für Sinus-Berechnung 
Screen # 12 
21feb88 ck 


((SIN_ Sinus-Berechnung für Winkel zwischen O und 90 Grad. 


_ 


Gerade Winkel 


Ungerade Winkel 
Näherung nach sin{x) = ((sin(x-1) + sin(x+1))/2 


(SIN. Sinus-Berechnung für Winkel zwischen Q und 360 Grad. 
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DRAGON 


Screen # 4 Screen # 13 
| \ Sinus, Cosinus ; 21feb88 ck 21feb88 ck 
: sin (n1-n2) SIN Sinus-Berechnung für beliebige Winkel 
dup O< IF BEGIN 360 + dup O> UNTIL THEN 
dup 360 > IF BEGIN 360 - dup 360 < UNTIL THEN 
(sin ; 
:cos (n1-n2) COS  Cosinus-Berechnung nach der Formel 
90 + sin ; cos(x} = sin(90 + x) 
Screen # 5 Screen # 14 
\ Turtle-Grafik 21feb88 ck 21feb88 ck 
Variable angle ANGLE Einige Variable für die Turtle-Grafik 
Variable xcood XCOOD 
Variable ycood YCOQD 
Variable stepsize STEPSIZE Länge eines Turtle-Schrittes 
s Variable #lines 25 Constant #maxlines #UINES #MAXLINES Zähler für die Akkumulation der Poly- 
linie. 
. Create line-array #maxlines 4 * allot LINE-ARRAY _ Zwischenspeicher für Linienkoordinaten 
° :turn (deltaangle - ) TURN Dreht die Turtle gegen den Uhrzeigersinn 
angle +!; 
Screen # 6 Screen # 15 


\ Turtle-Grafik mit Akkumulation 21feb88 ck 21feb88 ck 


: draw-line  (-) DRAW-LINE Zeichnet die zwischengespeicherte Poly-Linie 
#lines @ 0 
DO line-array | 4 * + 2@ LOOP 
#lines @ [ gem ] pline 
xcood @ ycood @ line-array 2! 1 #lines ! ; 
MOVE-TURTLE  Bewegt die Turtle um den Betrag in STEPSIZE 
: move-turtle (-) und speichert die Bewegung. 
stepsize @ dup 
angle @ cos 10000 */ xcood @ + dup xcood ! swap 
angle @ sin 10000 */ ycood @ + dup ycood ! 
line-array #lines @ 4 * + 2! 
1 #lines +! 
#lines @ #maxlines < not IF draw-line THEN : 
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DRAGON 


Screen # 7 Screen # 16 


\ Hauptroutine 21feb88 ck 21feb88 ck 


: dragon { sign level -- ) recursive DRAGON Eigentliche Hauptroutine 
key? IF key abort THEN 

dup 0 = 

IF 

drop drop move-turtie 

ELSE 

over 45 * turn 

1 

over 1- dragon 

over -90 * turn 

-1 ( +1 ergibt eine weitere hübsche Grafik ) 
over i- dragon drop 45 * turn 

THEN ; 


Screen # 8 Screen # 17 


\ Initialisierung 21feb88 ck 21teb88 ck 


: deurve (level - ) DCURVE Zeichnet die DRAGON-Kurve n-ter Ordnung. 

page 200 xcood ! 150 ycood ! 360 6 * angle ! N muB geradzahlig sein. 

2 stepsize ! 

xcood @ ycood @ 2dup 2 pline 1 swap Maximal ist ein Drachen 16. Ordnung bei STEPSIZE = 1 

overwrite solid auf dern Atari ST môglich. 

xcood @ ycood @ line-array 2! t 
1 #lines ! | 
dragon 

#lines @ 0< > IF draw-line THEN ; 


] ] 
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